The programs, many of which feature 
machine code subroutines, include: 

PROTECTOR 

WIPE-OUT 

CHOPPER SQUAD 

DODGEMS 

SNAKE 

ZOMBIES 

DOORS OF DOOM (Adventure) 

GOLD RUSH 

SPACE TREK 

3-D MAZE (with full graphics) 
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Here's a collection of 49 games guaranteed to 
make you glad you invested in a Spectrum, 

Tim Hartnell, the world's most widely published 
computer author (and recently described by 
Personal Computer World magazine as 'Mr 
Sinclair) has drawn on the work of some of the 
UK's most talented young programmers to bring 
together this incredible collection of explosive 
games for your Spectrum. 
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Games for the 



Don't wast a minute longer reading the back of 
this book in the shop. Buy it now, and rush home, 
and start your Spectrum exploding. 
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FOREWORD 



Books as solid as this one don't just spring out of the 
Spectrum without a serious investment of time and 
effort. 

And there has been plenty of both time and effort spent 
making sure this collection of games for your 
Spectrum is as good as we could make it. 

Drawing on the work of some of the UK's best young 
computer programmers, I've brought together a series 
of major programs for the Spectrum which deserve 
the label software quality'. The major contributors 
were Malcolm Young. David Perry, Graham Charlton 
and Neil Pellinacci, whose work forms the bulk of this 
book 

Others I contracted to produce programs for this 
collection include Scott Vincent, Raymond Blake, Neal 
Cavalier-Smith, Paul Toland. Andrew Sweetland, Martin 
Jones, Graham White, Tim Rogers, Damian Steele, 
Neville Predebon and Michael Briggs. They also 
deserve congratulations for the quality and 'play- 
ability' of the programs they've contributed. 

Time to start your Spectrum exploding. 

Tim Hartnelt, 
London, 1983. 
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ARCADE 
GAMES 








Protector 



No need now to spend your money in the 
arcade. PROTECTOR gives you the chance to 
save the world (or at Least a few cities) 
as this sampLe run shows: 




\5CORE = 10«SS 



f 

y 
s 



\ 



Y 



/ / 



/ 



Your controLs are "M" , "Q" , 
"P". Time to start protecting 



"A", "0 n 



and 



19 REM RUN WITH CRP5 LOCK 

20 CLS 

30 FOR F = l TO <t9 

4-© BORDER F S~? 

50 BEEP 0.05.F 

50 PRINT RT 5,10; INK 0; 
4-; FLASH 1; "PROTECTOR" 

7® NEXT F 

60 LET 50=e 

90 LET H5=0 

i©0 RESTORE 



PRPER 



110 LET N = B 
120 PAPER 1 



BORDER 1: INK 6 : C 



130 LET 

14-0 LET 

1SQ LET 

160 LET 

170 FOR 

160 RERD 
1*50 
^00 
210 

230 

DIM 

2A0 
53, 125 
134-j "C" j 128 
124- ,24© , "D 



0$=" Ilk 
R*=0$ 
W$ = + " 
E$ = " 

x = i to i; 

TO 7 



REM G hBC 
REM G DESG 



REM G 



365 



FOR Y=0 
REfiD fl 

POKE USR HS+Y 
NEXT Y: NEXT 
DIM Z«M6,2,4) 
N (15) : DIM X$ (15) 
DRTfl "R" , 28 , 20 , 2S , 2S , 28 
'B" „ 16, 16, 56 , SB j 56,56 

, 12S , 12B , 192 . 192 . 224. 

■ 7 ' 15 , 15 , 3i , 5S . 53 . 6 



DIM L (15 ; £J 



29 
56 



I* 1 1" * £** , 254- , 254 , 255 , 255 , 255 , 25 

f ' g|| t _jf _ / ess , 255 ,2ii, ass , 195 , is 

I'll! '?!?' "i"' 24 - ^*S> S*S, 252 ,25 

55Q DH i H "X" , 129, 66, 3o, G>, ©, 3e, e> 
5, 129, "T* J , 129 , 126 . 125,50 ,50,24,2 
4,24-, "N " . 12S , 54- , 32 , IS .. B , 4- , 2 , 1 , "/ 
" , 1 , 2 , 4 - 3 , 16 , 32 , 64 > 12S 

250 FOR B=l TO 6: LET Z& ( E , 1 ) =Q 
& : LCI .£. * <■ O , b t =W* . I't.**"' - 



LET H=l: 

GO SUB 09 



O70 CL3 

26© LET U=10: LET D=V. 

LET 10=6: GO SUB 0573: 
2© 

290 FOR 6=1 TO U: LET Lf5,l)=IN 
T (RND*H! : LET L<B,2)=INT KRND*3 
0} : LET N (BJ =INT (RNO*2: *£-!. LE 
T X$(B.l =CHRS (156.5-NiB=/2i. HEX 
T B : GO SUB 0950 

300 LET Rl=17: LET S2 = 15 

IF B>D THEN LET 



LET 



PRINT 

SC 
PRINT 



B=E+1: 
RT 



20. 



310 
320 

330' PRINT RT LIE 
) : LET L!B,1) =L i& 
2)=L(6 J 2J+N(B) : 
N LET L CE, 2) =0 

340 IF L (B,2> <0 

350 IF SCREENS (LfB 
>"■ " TNEN GO TO 0710 



4 



INK 



SCORE 



1 ) ,L!E,2i J X % I. B 

. 1) +1: LET L (B . 

IF LfB. 2> >31 THE 



THEN LET L(B,2) 
1 I ,LiB,S! ) < 



© 



360 PRINT RT LiE.l) ,LtB,2;'; 
370 LET Ll=© : LET L2=0 
330 IF INKEY$="" 



Y" 

TBEN~GO TO 050 
THEN GO TO 05 
THEN LET Li*- 



THEN LET Ll=l 
THEN LET L2=- 

THEN LET L2=l 



390 IF INKEYf="M" 

10 

4-00 IF INKEY$ = "Q*'- 

4-1© IF INKEYt = "fl" 

420 IF INKEY$ = "G" 
1 

^-30 TF TNKEV$ = ' , P" 

4.40 PRINT flX, ni i Ra ;l* fiD -p 3 ^ 2 

4-50 LET fll=fil+Ll: LET R2--Rb.-3 

450 IF RK1 THEM LET R 1=1 

470 IF Rl>17 THEN LET R1 = I^ 

4-30 IF R2<1 THEN LET Bf=30 

490 IF R2>3© THEN LET R2=l 

500 PRINT RT R1,R2.;";.": GO sO 
3 10 

510 PRINT INK 2 ; RT R1-1,h2-1,"i 

m ;;;RT_ ri,R2-i, ' &£X RT ri+i,R2- 

520 FOR V = l TO D: IF RBS (LtY,l 
}-Rl)>l OR RBS (L (Y,2) -R2> >I THE 

N GO TO 0540 

530 GO TO 0570 



540 NEXT 

i I— ♦-■ T—-T— »^> f~T" 

Rl ] R2-I; " 



"; RT R1 + 1..R2-1; " 



560 GO TO S310 M% , __ 

570 LET L (V , D =L <D, 1) : LE * L (Y .. 
3)=L(D,2): LET N(Y)=N(D): LET X* 
(Y1»X*(D): LET D=D-1: LET 5C=5Ci- 

10 

560 BEEP .15,16 

590 IF D>0 THEN GO TO 0540 

600 LET H=H+1 

610 PRUSE 200 _ „_,_, . 

620 CLS : PRINT RT 5,5; rLfliH i 

; "YOUR SCORE IS "jSC: PRUSE 100_ 

F.30 LET Uf = 0: FOR X = l TO 6 • IF - 

*tx,a; < >ef then let u=u + i 

III IF X U=0 THEN GO TO |SSS 

IIS print iw » t li* -rflgJtea I?. 

4* iX-1) ; U$: NEXT X Ml 

670 LET T=U*100: PR INT RT 11 j — 
i*4;"= BONUS ":T: LET SC=SC+T 



J=U + l; IF 



a 



&SCX GO SUE S9?e 

690 GO 5US 0923 : LET 

Lt > 15 THEN LET U = 15 
700 LET D=V: GO TO 0250 
710 IF L(6,l) CIS THEN GO TO 035 

720 IF SCREENS (L(B,1) ,L(B,2)) < 
,• " " THEN GO TO 0300 

730 LET Z=L (6 , 2) 

74-0 IF Z>1 AND Z<5 THEN LET Z*< 
1,1)-" " : LET Z$£1 J 2J=E$: GO 

TO 0640 

"50 IF 2:5 RND Z<10 THEN LET Z* 
i2,lJ =*■ ": LET Z$ C2.. 2.1 =E$: GO 

TO 084S 

760 IF Z>9 RND Z < 14. THEN LET Z$ 
C3.1)=" ** : LET Z*(3..2)=E*: GO 



re ©e-4.0 

770 IF Z>17 
$(4,D=" 
O TO 0340 , _ , . -, 

730 IF ^>2VBNCV E Z<|| £ TH|N = ^T | 



RND Z<2£ THEN LET Z 
': LET Z$f.4,2>=E£: G 



5 iOj !■' = *" 
O *TO 0340 

790 IF Z>25 
$.(6,1) = " 
O TO 034 

300 LET L(B 
^i—i f n sm - i 



AND Z<30 THEN LET Z 
' : LET Z*(6,2)=ES: G 



1) =L (E>, 11 : LET L (B . 
M f ft 1 - w < r^ * • ! FT v * 

i.g>=XSCD) : LET D=D-1 
510 IF D>S THEN SO TO ®3&0 
320 IF W=0 THEN l^O TO 0550 

|?g liE?°.!i?l: GO SUE 0920. GO 

m lll*\ ft«S8 ^OR X-1 TO_2 

-' -2==I=-" = "NExf"x 7 PRINT hT 10 
Tisr-GRME QUER" : FLRSH 
350 PRINT =.ov-H5 THEN PRI 

JGH -• LET HS=SCr~ INPUT 
37 1: GO TO 0900 



6 



"ENTER V 



THEN BEEP 0- 



310 LET SC=0: 
920 LET 0$^l'fc 

+ZS C3,1J +" 

Z«6,Ht" 
930 LET Q$=Q$ 

.2) +Z$J3,2) +■** 

•a) +z$ ts,a) +" 



GO TO B320 
"+Z$C1,D +2$(H,1) 
+Z*f4-, 1J *Z$ (5,1) + 

f2$ii,S:' +Z* (2 
+Z4rt4. 2> fZ | (5 




34-0 RETURN 

950 PRINT RT 19 







930 RETURN 

970 PRINT RT 20,13, "LEUEL 

930 FOR F=l TO 280: NLXT F 



M 

CLS 



390 RETURN 
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Hi-Rize 



From Paul To Land comes this exciting 
arcade game, which involves jumping 
through many screens of lines with moving 
gaps. There are five screen variations to 
be pLayed through, Bnd you can see them 
aLL in these screen printouts: 



ni-RIZE 

SCREEN 1 



ffi 



■SCREEN"!' 



B' 



m-RIZE 

SCREEN 2 

r r © M this screen on. red dots 
appear on the s-cre^n and you 
can gain points fay going over 

t h fi S 6 . 

in this screen you may not 
return to the base tine. 



M 



_&_ 



tt At j fct4t^ ti l fc t*tMM^H l fctH|it 



HX-RIZE 



SCREEN 3 

fis you taove up the screen the 
lines below you vanish, so you 
wilt lose a life if you fall. 



9 



± 



**_ 



£L 



* t 



9 SO" 



■SCREEN"3' 



•5" 



ni-RIZE 



SCREEN 4 



t t 



M. 



* 
• * 



'163© ' "SCREEN™*" 



ID 



ni-RIZE 



SCREEN 5 



spikes appear at the top of 
screen and their touch is 
lethal . 



the 



4& 



H 



t 

* 




And here's the Listing for HI-RIZE: 



1 REM HI-RIZE © P. TOLflND 
S0 GO SUB 300: GO SUB 2500 
90 LET TDT=TOT+l: LET UN=UN+2: 
GO SUB 920 

100 FOR I=H TO L; PRINT fiT X#S- 
1,H(I,1>;CHR* 14-4.; LET N=H(X,1> + 
H(I,2): IF N<0 OR N>31 THEN LET 
fl = INT (RND+.S.1 : LET HiI,2J =fl- ifl = 
0) ; LET N=(H(I,2) =-l)*31 

110 PRINT RT 1*2-1, N; " " : LET H 
: I, 1.1 =N; NEXT I 



11 



130 PRINT BT Y,X;" "* i IF SCREEN 
$ JYfljXJs" " THEN LET SC=SC-£&* 
G PRINT RT 21 ,3; 5C, CHR$ 14.4: BE 
EP .1,-23: LET Y=Y+2. LET C=14-6; 

LET T=0; IE L<10 THEN LET L=L+3 
; IF G>2 THEN GO TO 300 . 

130 LET T=T + 1: IF T4JN THm4 LET 

C = 14-5: BEEP .05,30 

14.0 IF C = 146 THEN GO TO 155 

14-5 LET I$=INKEY$; IF 1*<>"1" T 
HEN GO TO 150 

i*E IF SCREEN* (V-1,XJ=— THEN 
SEEP .05,0: LET C=14S: LET T=0: 
GO TO 160 ,._ 

14.7 IF V 420 THEN LET L =L - 1 : IF 
L<10 RMD G>2 THEN PRINT RT Y + 1,8 

'ffc LET SC=SC + 10*G; Pf*g*£j* r tt 

i*S^rSi™2 3.4.4.: BEEP - 06 , 20 : LET 
V =V -2 : LET X=X-H1Y ; '=; + j.,=. ri 
^"=0 LET X=X+tI$= 8") -ll*= 5 I • 
, £? v_*l ( C--1* *32-fX=32J S-32 
-p^iF*9CREEN* "y + 1,XJ=" " THEM 

^^^«W«^fl« PO TO 

^162 PRINT INK 0JRT V" , 2*1 £gS|L»I ' 3 
!F V=S THEN LET G=G+1. RESTORE | 
000; FOR 1=1 TO 13. READ N: BEEP 

.1,N: NEXT I: GO TO 90 

170 PRINT RT BY.BX;' : LET BX- 
EX+D: LET BX =BX + (BX = - 1 J *32 - (BX s3 
i)*38: LET fl$=5CREEN$ IBY+1,BXJ: 

XF SCREEN* (BY+l.BX-DJ =" " OR & 
S=' '• THEN LET BY=BY+2: LET D = -H 
iBV/B+ljSi • IF BY>11 OR BY>Y THE 
N LET BY=0: LET BX = 1S: LET D = -H< 

1 175 LET N=RTTR fBY,BX) : IF N=4-S 

I5f N XF°Nlll' 3 TSEN LET D = -D: LET 

S lli X PRINT INK 0,RT BY,BX;CHR* 1 

^IsS IF G=£ AND Y<20 THEN PRINT 

ink's; at 20.. 0; n* 

190 GO TO 100 
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300 FOR I=L*2 TO 20: PRINT RT I 

,x;chr$ 14.s;rt i-i,x;" "- beep . 

1 =20-1: NEXT I 
310 BEEP 2.-10: LET M=M-1: IF M 

=0 THEN INPUT " TRY RGRXN ?";R* 

: GO TO 1+ tR$="N" J *9998+ ffl$="n ") 

-jt 9995 
320 LET G=G-1+ (G=iJ 

330 GO TO 90 = „„ 

30© RESTORE 800: LET T$="": FOR 
1=1 TO 63: RERD N: LET T*=T$+CH 




10"4?0,13"id.; 0,13,12,12,0,14;, 12 
820 LET T*=" "+T* tTGMSi* 
*+T4(23 TO 4-2)+" 
'+T*(4.3 TO ) - „_^ __ 

330 RESTORE 900: FOR 1=0 TO 58 : 
RERD N: POKE USR "R"+I,N: NEXT 

J QS5 LET N=0: DIN B*<32>: RRNDGM 

ill > LET TOT=0: LET UN-S: LET & 

C=i; LET M = 4: LET G=l: RETURN 

910 DRTR £55,255,255,0,0,0,0,0 

911 DRTR 50,231, 139, IBS, 153 , 6fc> , 

912 DRTR 195,155,123,139,139,13 
q 2S1 24 

*S13 DRTR 24., 102, 102 , 153, 153, 102 

. 102 , 24- 

314 DRTR 0,0,24,S0,fc>0,24,24,0,© 

915 DRTR 16, 16 , 16, 56 , 56 , 5& , 254 , 

-»!& DRTR 24-, 24-, 60, 255, 60 ..24... 24- , 
24 

920 LET N* = "*": LET L*="": FOR I 
= 1 TO 32: LET N*=N$+CHR$ 14-9. ' LE 
T L*=L*+CHR* 14-4 , NEXT I 

330 IF P*="Y" THEN GO SUB 2SS0 

940 LET H=l: LET L=10: LET T=10 
0: LET X = 16 : LET Y=20: LET C=14-5 

330 INK 1 : PAPER 6 : BORDER 6 1 C 
L3 

3S0 LET BX=16 : LET BYcfl 

970 IF G>1 THEN FOR 1=1 TO 20. 
PRINT INK 2:fiT INT f RND* 10J *2 , RN 
DS31; CHR* 143: NEXT I 

3S0 IF G>4- THEN FOR 1=2 TO 10 S 
TEP 2: PRINT RT 1,15; INK 3;CHR* 

150; NEXT X 
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STEP 



1000 DIM H(10, 2J 
iiSiS FOR 1=1 TO 21 

RT X.e;L$: NEXT I 
1020 FOR 1=1 TO 10: LET H 1,1 
NT CRND*3D : LET fl f INT iRND + . 

i_ET H(I,2)=fl-(fi = 0> ■' NE.AT I 
10361 LET D = -Hf 1,2.1 

104-0 PRINT RT 21,S;SC;flT 21 , 1 
SCREEN- ; CHR $ 14.*; S 5 ST^ii^S , T 

FOR 1=1 TO M-l: PRINT RT 21, 
; CHR* 14-5: NEXT I 
20S0 RETURN 
2010 DRTR 2,2,2, 14- , 1* , 14., 11 , 1 



PRINT 



) =1 
5.1 . 



s; " 
OT: 
1*2 



INK 7 : BORDER 
PRINT RT 10 ,0; 
ructions "?** 



,7" 11,7.2 
2500 PRPER 1: 
L5 : INPUT ; : 
ucu want inst 
2505 LET 1=0 .^ „„«,t. 
2510 LET I$ = INKEY*: i( PRINT 
: INK I;T«: IF !* = "■* THEN 
I*1-CI = S)*S: GO TO 25**,.^ 
2520 LET P$="N": IF I$ = "Y 
= "y" THEN LET P$="Y" 
2530 RETURN 
2550 LET 1=0: INK 7 
S : BORDER 1 : INPUT 
4,10, INK 6; "SCREEN 
G*100+2500 
?F?fi0 LET IS=INKEY$ : 
INK I; If: ir J.* = 
GO 

10 



RT 
LET 



1, 1 

C 
DO 



0,0 

1 = 



2570 BEEP .5, 



2600 PRINT RT 6,0; 

o reach the top of 

screens in order 

o tht- next. 

u jumping through 
Lines above 
ling down 

you a re 
Lso have to 
ich rol is 
Lines; you 

it hits 

•Move 



fC 2560 
RETURN 



OR I* 



PAPER 1 . CL 
; ; PRINT RT 
" ; G - GO SUB 

PRINT RT , 



i n the 
i ng fa I 
he line 
You a 

rrel wh 
hi gher 

life if 
2510 PRINT 

Keys 5&S, 

ETLIRN 

2700 PRINT RT 5,0; 
&&rs on, red dots 
e screen and you 
nts bu Qoing over 

2 710 PRINT "In this 



le f 
Jump » i 



You r a i ro i 
each of t 
to a d w a n c 

you move U 
reaving ga 
Itibi L£t a V 
the gap i 
s t andi ng 
avoid the 
about on 
will Lose 
you." 
lif ight w 
th key 1" 



From thi s 
appear on 
can gain 
these . " 
screen yo 



s t 
he 
e t 
P b 

ps 

Old 

n t 

on - 

ba 

the 

a 

i th 
i R 

icr 
th 
pO i 



ay not 



U K> 

return to the base 



14 



3 



sne* '"i RETURN 

SOS PRINT RT e.0; "Rs you move u 

the screen the Lines below 
ou vanish, so you will lose a 
ifs if UOU fall."; RETURN 
50 © print RT 10,0; "Things speed 
*^p s bit from now on,": RETUR 



000 print RT 10,0; "Spi Kes appea 
r at the top Of the screen and 
their touch is 

ETURN 

S33Q RETURN 

9399 INK 0: PRRER 7 



s c r een 
tetha L 



BORDER 
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Wipe-Out 



No collection of computer games would be 

complete without a 'city bomber 1 type 

program. This is a much stronger version 

of the game than many I've seen, and 

provides a reaL chaLlenge to the player. 

Here it is in action (at the end Df a 
run) : 



SCORE ; 393 



fc I SI 





The scenario is familiar. You are in a 
space ship which is coming down. You do 
not have any means of ascending, so must 
blast e Landing strip for yourseLf by 
dropping bombs on the buildings. Use the 
"H" key to release your bombs. 

3.0 PRPER 0: BORDER 0: CLS 
om £,£2-rc! is ,0,S .SS.SSS.Q.a.Bjl ,3 
, 7725s', 255 . 53^252 . 26 , © ^ !■ 0~, 0,255 
, 255 , 2SS , 255 ,255 , 76 , 2S5 , 255 , 102 , 
255 ,255, 2, ©.Si. 71, 116,39, 120,2 
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IIP: FOR n=0 T 
U5R CHR$ C+n. X 



30 FOR C=lll TO 
O 7 

4S READ JC ; POKE 

50 NEXT n . NEXT C 

50 LET be. = 

70 PRINT RT 9,5, INK 5; "***UIP 
e-out*?*- h to drop bOIfib. 

Uipe the city off the earth 

WiXh H-bOJfibS XO QjVk LfOUTSS 

if B Landing s t r i p . " ; RT 15,0; BR 

I3HT 4; INK 3; "DIFFICULTY ? ( 1 TO 



LET D = 7-D 
CLS : BORDER 



INPUT D 
PRPER ©; 
LET £=-1 
FOR a =S TO 25 

INK 1 + INT IRND*7J ; PRPER 1 -f 
(RNDS-7.1 : LET q=l 1+INT (RND#9 



00 
90 

103 

110 
INT 
J 

120 PRINT RT q,a; RRRER Bi *'m" i 
FOR b=q + l TO 21; PRINT RT b,a;*'§ 
" . NEXT b 

130 NEXT 3 

14-0 FOR 3 =1 TO £1 

150 PRPER 0. INK 1+INT tRNDjf?) 

16S LET bp=!21-=J 

170 FOR h=23 TO 1 STEP -1 

180 PRINT RT 3 . b ; " '-!**&'' : BEEP .0 
'1 , bp 

Heart F"0"3 I —0 TH d 

£00 LET i=S+2S(INKEY? = "b'M+IS=l 
) : GO SUB 32© 

210 NEXT L 

£2& IF 5CREEW? f 3 , b-U < * ■' - the 

N GO TO 450 

£30 PRINT RT 3 , b; " 

34-0 NEXT b: PRINT RT a,!," 

250 NEXT a 

2b0 DRTR 4 , 4- , 4- . S 

270 RESTORE £50: FOR a =1 TO 4- ; 

REBC' X: BEEP . 25 * i 1 +a » t a =4- > ) , X ; 

N EXT a 

280 PRINT RT 21, 0J FLRSH 1 ; INK 

3; PRPER s; "SCORE r "; be : "s tand by 

for t3K£-:f f: PRUSE 300 

290 PRPER S: FOR a =20 TO STEP 

-1 

300 PRINT RT 3+1,3+1;*' "' ; RT a, 
a; INK 1+iNT iRND*6J ; "— J" 

310 NEXT a. GO TO 70 

320 IF a =21 THEN RETURN : IF 3 = 
1 THEN LET e=5+l 

330 IF £.=! THEN LET S =a +2- f a =20 
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34-0 IF £=1 TH£N LET b=b+2: IF S 
= 1 THEN !_ET d =d /S 

350 IF S<0 THEN RETURN 

360 PRINT RT e-l,h;" "; RT e,hj 
*"; EEEP ,@06,£l-e; LET £=£+1 

370 IF SCREEN* (2/h) <>" " THEN 
GO TO 330 

3S0 IF e <21 THEN RETURN IF e > 
21 THEN LET £-21: GO TO 4-00 

390 LET b£=b£+lS 

400 IF £>21 THEN LET £=21 

4-10 PRINT RT £-l..h; PRPER 0;" " 
FOR n=7 TO STEP -1 

4-20 PRINT RT £,b; INK n; "■" : BE 
EP . 02 , n -12 

4-30 NEXT n 

4^4-0 LET S = -l; LET d =d *2 ; RETURN 



450 PRINT RT a , b-2; " 

+60 DRTfl , - 3 . -5 . -5 . -5 > 

4-70 RESTORE 450: INK 2 

4S0 FOR ft =10 TO 9© STEP 10 



T b*S , 121-5) *3 



ORRU 



4-90 PRINT 

K l; "SCORE . " ; fc£ 
500 STOP 
510 GO SUB 410 



RT 11.. is; 



20 .. n : 
PRPER 



PLO 
NEXT 

e, in 



DO TO 510 



IB 



Birds 



Written by Nei I PeLLinacci, this is an 
arcade- type game , in which you have to 
defend your pLanet from the LinBS of alien 
birdmen above. 

Once by one the aliens swoop down on you, 
dropping Large white crates in the process 
The crates are used as bombs, but later in 
the game, the crates can smother your 
planet, completely covering it. If this 
happens, the game ends, no matter how many 
Lives you have Left. The crates have a 
third roLe, but you'LL have to pLay the 
game to discover what it is. 



You control your Laser base using the "Z" 

anu t\ hcya, 1*11,11 iiiib apaue Ktsy 1>U I lit;. 

You score 50 points for eech swooping 
birdman you hit. If you hit a bi rdman on 
the bottom row, you get just 25 points. 
However, a birdman hit here will not be 
killed, but merely stunned, and wi L L soon 
return. 



You start with three Laser bases and lose 
one each time it is hit by a birdman or a 
crate. The number of bases is shown on the 
top row of the screen, together with your 
score ton the Left) and the current high 
score. You gain an extra base when you've 
destroyed three attack waves. 
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At this point, you'LL meet mutant aliens. 
These swoop, but may then rise, dropping 
more crates. 

To give you something to aim at, you might 
Like to know that the best score that Neil 
has achieved - and only after a great deal 
of practice - is 12,000. 

The program is written entirely in BASIC 
with the exception of a single machine 
code routine located at 32500. Here is a 
disassembled listing of the code: 



32503 


LD 


HL . "?©4. 


32503 


LD 


DE . S252S 


32SC6 


Li> 


BC .32 


32589 


PUSH 


HL 


325 1 £ 


HDD 


HL ,DE 


32511 


DEC 


HL 


«»iii^ 


b*%f? 


i-r . tnu 


32513 


CP 


1SS 


32515 


JR 


Z .32539 


3251"? 


POP 


HL 


32516 


DEC 


HL 


32519 


LO 


fi,H 


32520 


OFJ 


tar 


32521 


JR 


NZ .32539 


32523 


1_D 


HL. .23253 


32526 


Cd 


E .32 


3252S 


LD 


P. . fHLJ 


32529 


CP 


3.2S 


32531 


UR 


NZ > 32536 


32533 


DEC 


HL 


3H534- 


DJH2 


3252S 


33536 


; fc£ 


r~- Ci 


33538 


REX 




32539 




iHL. ? . 7"0 


3254-1 


fiDD 


HL.BC 


3254-2 


LD 


(HLi . 125 


325** 


UR 


32517" 
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And here is the key to 
graphics: 

RB = *gr 

CD = A 

tFG = 
HIJ = 
KL = ■ 



the user-defined 



After you have the progrem working, you 
may wish to reLocate the code. If you do, 
remember to check Lines 90, 317, 412 and 
7020. The subroutine Locates the position 
of each Crete end moves it down one 
position. It also checks to see if the 
planet is completely covered by crates. 
The result of this test is detected on 
return to BASIC by Line 317. 

You should type the program in, and then 

Save it. before trvinn tn run in in r~Etco 

you've made a mistake with the mechine 
code. It is also advisable to save the 
program so that it starts automatically on 
Loading. 



I : GO TO 9@ 

0,6-LEN STR$ 5; 



IN 



10 RRWDOMI2S 

20 PRINT PT 
K 5; 5: RETURN 

3S LET BC=BC+IINKE , r$ = "X ,; RND B 
CO?) -iINKEYS="Z" RND BO03 . PRI 
NT RT 21.. BC.; PRPER S; INK 6; " _*^ 

35 IF INKEYJO" " THEN P.ETURN 

4-S GG TO 520 

5© FOR X = l TO 3: FOR V = l TO IS 

50 IF L(X.Y) <>-! THEN LET Li=i- 
*X.Y>: LET C1=C(X,Y>: LET C2=V : 
LET L2 = X: RETURN 

"70 NEXT Y: NEXT X; LET UF = 1: R 
ETURN 
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80 
STEP 

•?: " " 

X ,BC + 
NT RT 
RET 
90 
95 
RDER 
130 
.25: 
105 
107 
11© 
S=0: 
120 
130 
14-0 
160 
200 
£05 
210 
220 
(B + l . 
230 
235 
237 



+ INT SRND*13) 

X.SC+S. FfiPER 

BEEP .0© i . 4-0 -X : PR INT RT 



Foa,.x=se to 

-1: '-PR IKT R 



NEXT 



PR I 



PRPER 



B: Ci-S : BO 
PRINT fiT 



2, PRPER 0; " 

X ,BC+2; INK 5; 
URN 

CLERR 32499 
BORDER 6; PRPER 


INK 4; BRIGHT 1: 
INK 5; '•030000 s * 

GO SUB "7000- GO SUB 98O0 
J_ET HS=S 
GO SUB 3000: LET BC=13: i_ET 

LET L6=3: LET UU=© 
LET FF=0 
LET HF=0 
LET BFF=3 
LET UF=S 

DIM L 13 ,10 J: DIN CiS.13) 
FOR B=© TO 2 
FOR R=© TO 9 

LET L (E-i-l..Rrl3 =B*2*1; LET C 
R+ 15 =R*3+1 
NEXT R 
NEXT B 

PRINT RT 0,0; INK 5, "SSSSSe 

"; RT £ . 17; LE 



10: PRINT RT L IB 
NEXT R 



250 FOR R=l TO 

,R) ,CtB.R); ".Av" 

255 NEXT B 

260 LET BH=0 

290 FOR K=l TO INT ?RND*I5ri) 

300 LET B=2KT (RNDS3+1) ; LET R = 
INT (RND*10fi) 

305 IF L(B.R)=-I THEN GO TO 315 

310 PRINT RT L (B .R> ,C .'.B,R> ; "^fr" 
: BEEP .01.-10: PRINT RT L * B , FO , 
C CB ,RJ : "^t^" : BEEP .01,5 

312 IF RND>.& THEN IF RTTR t 22 , 
BC+23 =126 THEN GO SUB BE 

315 IF INKEV£<> '" THEN GO SUB 3 

317 IF NOT USR 32500 THEN GO TO 

4000 

31S IF RTTR i2i .BC + 15 =126 OR RT 
TR (SI.BCi-ai =125 OR RTTR (21.BC + 
3) =126 THEN GO TG 1000 

320 NEXT K 
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330 IF 6H>2© THEN GO SUB 

UF=0 THEN GO TO 405 

340 IF UF = 1 THEN GO TO 2i 



IF 



40© LET L2=INT ^RND*3*13 : LET C 
2 = INT (RND*2£rl) 

402 LET L1=L(L2.C2>. LET C1=C{L 
2 .C2 i 

404 IF Ll=-1 THEN GO TO 4©S 

405 PRINT RT LI. CI:" 

406 LET CO = INT i RNE> *£ - 1 > 

41© PRINT RT Ll.Cl; QUER %£**&%" 
: BEEP .001, LI +20: PRINT GUER 1: 

4-11 IF RND > . 8 THEN IF Ll>6 THEN 
^ PR INT RT L 1+1, CI; INK 6; PRPER 

*412 LET ZZ=USR 32500: IF INKEY$ 
<>"" THEN GO SUB 3©: IF HF = 1 THE 

N LET rir =© : GO TO 23® 
413 IF RTTR <21 , BC +1 ) = 126 OR RT 

TR (21 . BO 4-2) =126 OR RTTR 421.BC+ 

3) =125 THEN GO TO 1000 

415 LET C1=C1+CD: IF CI =32 THEN 
LET C1=0 

416 IF CI=-I THEN LET CI =30 
413 i.F RND>.35 THEN LET CC=INT 

(RND*3-1) 
419 IF UU^=3 THEN IF RND > . 6 THE 

42© LET'l1=L1 + iT IF'lI i >21 THEN 

GO TO 410 

4.215 Z^ Ci=B" ^' *"";== o 1 — =.-r- -*.?s -rvs=K) 



LET BFF=1 



o isee 



i30 PRINT RT L(L2,C2> ,C(L2.C£J ; ■ 
■"•*"" : GO TO S3© 

520 PLOT BCiS-(-2G.6: DRBk* INK 3, 

PRPER 0,0.126: PLOT OVER 1,BC#5 
+2© . 6 : DRftU GUER 1 . © . 126 

530 IF BC+2=C1 OR BCfl=Cl THEN 
GO TO 61© 

540 IP SCREENS C5.BC+2JO" " TH 
EN PRINT RT 5,BC-fl:" **: LET 5 = 

3+25: GO SUE 20 

50© RETURN 

S10 PRINT RT Ll.Cl, INK ?J m4 &3V * 
RT Ll.Cl;" "; LET Cl=-1: LET LI 
=-1: BEEP .05.-3©: LET L(L2 J C2J= 
-1 : LET S=S +5© : GO SUB 20 

62© LET HF=1; LET BH=BH+1: RETU 
RN 
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K300 RELM BRHG 

1310 FOR Vts'I TO 4: FOR Z = l TO IS 
: BEEP' .01S.22-Z: PRINT RT 21, BC 
: INK RND*?; " .-i;;s.- : .- " : N£Xi Z 
1O30 FOR Z = 1S TO 1 STEP - i. : BEEP 
.015.20-Z; NEXT Z: NEXT Y 

1S39 Let lb=lb-i. print err b, i?, 

INK 5; LB 
1U.40 IF LE=6 THEN GO TO 1S6S 
1G4S IF BFF=1 THEN L£T BFF=Q. GG 

TO 4.3G 
I©50 GG TO 4-13 
1050 PRINT RT © , IT: INK 1; PRPER 

7; FLRSH X ; LB 
1B70 FOR X = i TO SO; PRINT RT X .. 

" : NEXT X 
1SS© BEEP .2.50: BEEP .£5,33 
1030 FOR X = l TO T: PRINT RT X+7,. 
© ; INK X ; " GRHE QVER 
GRME OUER " : NEXT X 
1100 BEEP . £ . 5© : BEER . £5 , ^*£i 
127S IF 5>HS'THEN LET HS = S 
12S0 pp INT RT G . 32-LEN STR$ H5.; 
INK 5;H5 

1296 IF 5=H5 THEN FOR Z = I TC 5; 
FOP X = S© TG -20 STEP -2: BEt^P .0 



1 . X 



hiEX" 



: NEXT X 

1365 FOR X=© TO £0: BEEP - ESfe , © : 

NEXT X 
1310 FOR X = l TO G©0 : NEXT X: BOR 
DER 6: CLS ; BORDER ©: PRINT RT 
. 26 ; INK 5: "S0SS00";fiT 3 , 32-LEN 

STR$ HS . INK 5;HS; GO TO 2.1© 
14-00 STOP 

200© REM URUE OVER 
2010 FOR X=l TO 2©: PRINT RT X,0 

"' " : NEXT X _ _ 

2©a© FOR X = l TO 7: PRINT RT 3t-X* 

2< , 2 : INK X : " ATTRCK Ufi\,*E DESTR 

OYED" 

203© NEXT X 

204-0 PSUSE 150: SEEP .2.. 5©: FOR 

X = -3© TO 35: BEEP ,©1.X: BEEP .0 

15 . 20 . NEXT X : BEEP . 2 .. 5© 

2050 FGR X=l TO 20: PRINT RT X,0 



NEXT X 
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20SG LET UU=UW+1: IF UU=3 THEN B 

ORDER 5 : PRPER G : CLS : BORDER © 

: PRINT RT 0. SB; INK 5:"0S©©©3'\; 

RT ©, 32-LEN STR$ HS; INK 5;H5: B 

EEP .2.10: BEEP .2.-10: LET LB=L 

B + l 

207© GO TO 12© 

3000 R£M TITLE PRGE 

301© RESTORE 3500 

302© RERD X: IF X=9S3 THEN GO TO 

31SS 
304-0 READ Y: PLOT X,Y 

3050 RERD X: IF X=-99S THEN GO T 
O 3020 
30B0 READ Y: DRRU X,Y: GG TG 3S5 



31BE PRINT RT 10. 4-; INK 5."© HEX 

L PELLINRCCI 198o"' 

311© PRINT RT 13.. 7; INK 2; PAPER 

7; "'C G N T R O L S" 
312© PRINT RT 15,2; INK 6,"2.... 

313© PRINT RT 17 , 31 INK &.; "X . . . . 

314-0 PRINT RT 1© , 2 ; INK 5;"<5PAC 
E * , p XRE * 

315© PRINT RT 21.5; INK 2. PAPER 
7; "PRESS ANY KEY TG PLRY" 

*^*IC. r> -rssir -? r> • — -— — . .- — - — — 

DRAW 53 , ; PLOT 176 , 7©V DRflU^?? 
.. ©: DRRU 0.-63: DRRU -45.0: PLOT 

2.2: DRRU 37 . 
3165 INK 2: PLOT 0.63: DRRU 255. 
: DRRU . IS : DRRU -255 , © : DRRU 
© . -IB 

317© INK 4 

3200 FOR X=3© TG -30 STEP -1: BE 
£P> . 1 , X : BEEP . © 1 , -X : NEXT X : P 
RUSE 
321© FOR X = l TO HI: PRINT RT X.E 



" : NEXT X 
322© RETURN 
34©© RETURN 

350© DRTR 35 . 11© .0 .SB, 3© . -14, -3© 
.. - 14 , 30 , - 14 . -30 . - 14 , -3-33 
351© DRTR 36.110,0,55,-599 
3520 DRTR 105.110,3.56,33,-14,-3 
. -14 .30 . -25 . -339 

353© DRTR 151 . 110 . , SB , 3©, -2S . -3 
©, -26, -333 
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354-0 DRTR 166 , 1 1© , 3© , £8 , -36 , .. 3© 



3: FOR Y = l fG %& 
OR LiX, V 5 > 2£ TT* 



INK 
PR 



"- LET l_ (X .YJ =L *X,YS +1 Pi 
LIX.Y) ,CtK/V) ; INK 3; "--^ 



S7SS DfiTH 333 

4fcjQ© REM LRNDED 

4010 BEEP .£.3: BEEP .15.,-!: BEE 

P . 25 . 5 

4.020 FOR Z = l TO 

4.Q30 FOR X = i TO 

40+0 XF HX.Y) C0 

EN GO TO 4055 

4S50 PRINT fiT HX,Y3 ,CCX,"^ 

INT RT 

4S50 NEXT Y: NEXT 

407*0 NEXT Z 

4SS0 FOR Z=2£ TO -30 5 I EP -3: El 

EP .Sl.Z; BEEP . ©1.. Z*1.5: BEEP . 

@i,-z + ie.- NEXT 

4030 BEEP . 
BEEP . 13, 1 

4035 FOR R=i TO 5 -^ 

4100 FOR Z = l TO 19 STEP 2: PRINT 
RT Z.©: INK RND*5tl.;" BI 

RDS HRUE LANDED ** - BEEP - 

1 . Z *2 : NEXT Z 
4105 NEXT R 

BEEP 2 . -2.0 

f=o TO i 0S0 

oT OP 

REM n ^C 

RESTORE 7030: FOR R=l TO 46 

NEXT R 



X 






4200 

4S60 
7000 
7020 



RERD- B: POKE 3£499+fl,B: 




"7050 DRTR 33 .S23..90..5..3S.. 12S.254 
. 125 . 32 .5 .43 . 15 , £4S . 14 . S 
7068' DRtfi' 201 .54.73. 3,54 , I£c ,H4, 
227 

£000 RETURN 

9©0© FOR C=0 TO 35: RERD 6 POKE 
USR "fi'-tCB: NEXT C 



301© DRTR 192.113.26.7,1,2,2,0 
3»20 DRTR 3.. 142,66,224,128,64, 
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303© DRTR 0.1.2.7.25.114.195.0 

334© DRTR © . 126 . 54 . 224 , 152 .75.35 
.0 

9050 DRTR © .2 .© ,© .4, 14 .31 .255 



E6 



3Q60 DAT R 6,8,26,28, 52 , 127 , 255.2 



307© DRTR © . id . © . 16 SB o=:o s=^^ 

90S© DRTR ©".a.©,©; 16 CST^TSSS""^^ 

SSS© DRTR 6,0,42.126.42,201,34.2 

55 

3100 DRTR 0,32,0,126,36,135,6,25 

3110 DRTR 1S3 , 72 , 2 , 15 , 13© , 6 , 64 , 1 

33 

3120 DRTR 123 . 16 .64 .3 .54 . IS .2 . 16 

1 

3300 RETURN 



We'll now have a Look at what each part of 
the program does: 

ID: this skips over the foLlowing 
subroutines, which are at the 
beginning for maximum speed 

2D: subroutine to print score 

30: this moves the laser base. If the 
space key is pressed, control is sent 
to Line 520 

50: this is the beginning of a 
subroutine which is called when only a 
few birds are Left. It Locates the 
first living birdman, and selects it 
to swoop down. If there are no birds 
Left, WF is set to 1 to teLL the main 
Loop what has happened 



BO: an 'additional hazard' subroutine 
90: makes room for the machine code 
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11D: game i ni tia lisation 

120 - 160: wave ini tie Lisation 

200 - 235: sets up the birds 

240 - 255: display bi rds 

290 - 320: makes a few birds flap at 
random 

317: checks for a whole Line of 
crates; elso scroLLs them down 

318: checks for a collision between 
the base end a crate 

33D: selects next bird without using 
the random selection routine, see 
subroutine 50 

340: checks for end of wave 

400 - 404: selects a bird at random, 
and sees i f i t exists 

410 - 420: the main Loop 

411 : drops a crate 

419: if a bird is a mutant, it may 
move upward 

520: fire routine 



28 



610 - 620: exploding bird 

1000 - 1050: base hit routine 

1060 - 1310: game over routine 

2000 - 2070: 'attack wave over' 
routi ne 

2060: start of mutant waves 

3000 - 3210: title page routine 

3500 - 370D: data for title page 

4000 - 4300: this routine is called 
when the planet has been completely 
covered by crates; it causes the 
birdman to change color and slowLy 
land 

7020: POKEs the machine code 

7030 - 7060: data for machine code 

9000: sets up UDG characters 

9010 - 9120: data for graphics 
characters 

FinaLLy, here is a List of the main 
variables used in the program: 

HS — high score 
BC - base position 
S - score 

2a 



LB - bases Left 

WW - wave number 

MF - hit fLag [1 - yes, - no] 

WF - wave over fLag [1 - yes, D - no] 

L[3,10], C(3, 10] - positions of the 3D 

bi rdmen 
BH - number of bi rdmen hit 
L1,C1 - position of swooping bi rdman 
CD - horizontal direction of bi rdman 

As with most programs in this book, there 
are many things which can be changed to 
suit your own needs. For instence, the 
random numbers can be changed, thus 
changing the probability of various events 
taking place (for exampLe, Lines 411 and 
419], The screen dispLays can also be 
changed at various stages. 
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Chopper Squad 

Action is the name of this game from 
Malcolm Voung. You are in charge of b 
rescue helicopter flying above the desert. 

You have to save as many soldiers as you 
can before you run out of fuel. You can 
either pick up a soldier by landing on him 
for 5D points, or for a faster and easier 
pickup, use the he I i copter skyhook by 
pressing "1" when you are exactly two 
spaces above the man. This will get you 25 
points. 

You can also use the skyhook for cLearing 
trees. However, in doing so you reduce thB 
helicopter's cover. This cover is 



i mnn rt ant 



»R "it hclnc chinU unit f^nrr" +H< 



people who come a Long in jeeps from time 
to time to shoot at you. They can only 
shoot straight up, and you can destroy the 
jeeps by simply dropping bombs on them. 
Hardly seems fair, does it. You can only 
bomb them while in the sky, and you dc so 
by pressing "1" again. [The program will 
know whether you want the bomb or the 
skyhook, whi ch is why "1 " is use to 
trigger both. ] 

After you pick up a man, the ambulance 
turns black and you can then gain a bonus 
of 10D points if you can get the man to 
the black ambulance. 
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To add to the things you have to keep 
track of in this pronram, you ' L L see [from 
time to time] a f ue L „.uck somewhere along 
the bottom of the screen. If you manage to 
bomb this, you'll gain 20 fue L units as 
well as 1D points. 

CHOPPER SQUAD ends when you either run out 
of fuel or when your Lives have all bBen 
used up. There is s 'hall of fame' at the 
end of the program, which you can easily 
extend to five places. 



~ GO 5UB 550 
10 FIEH a=^ b=3 c=|« d=£ e =^ f =~ 

F sS DIM J^tS.IO.l: DI " h ^i-r rf«o 
30 LET tr=0: LET sf=0: LET dp = 
0: LET3t--0: LET pK=0: LET hve- 

a -,—.^ r*- c= <-> 7t DODFP ~? ■ INK 0j B 

»1!GHT~© CL5 . 

II© LE~ JF=0: LET in =100: LET / 

U I|| 3 ISPDEP. E. PRPER 5: INK 0: O 

ET l* = "S»"' ; 7 L^S = "riS-: LET p* = 

"ftSVoR gifl TO 21: PRINT PAPER 
5; RT g ,0^ " _ 

NEXT 9 



AS® FDR t=0TQ 31: PBPER 



B: LET 
PRINT INK Si RT 1 
4-. AT 15-r,t; ■ , 3S" .- 



r=INT tRND*4J 
6-r,t; ">""; INK 

"lt-0 LET y=INT tPND*10J +1: LET X 
=INT (RND*30> . LET 3=1 . 

170 PRINT PRPER B;RT 11, a -1; " 
; INK £-2*pK;flT ll.ajs? 

17S LET F"uel=fuet-I: PRINT PRPE 
ft ©; INK 7; BRIGHT 1; RT 3,0; "FUE: 
L = " j fuel ', • ** J RT S5 , 10 ; "SCORE ='"' -. S- € 
. RT 8 ; 20; LIUES="; lives 



178 IF fuel<0 THEN GO TO 1000 

i»0 l_ET a=a+0.S RHD <a <3©> : IE 
NOT a THEN LET Pfc=a 

190 PRINT OUER © ; AT M.x:" 

191 IF y=ll AND x+l=a THEN LET 
£C=SC+50: LET pfc=0: BEEP .B-5 

= 00 LET y=y + tINKEY* = "6' , j - ( INKEV 
j? 1 - . 1 " I L .. LET x " x * ( SHHSY * = "-&"> - \* SH 

205 IF y<ll THEN LET X =X + (INKEV 
£ = "B*M -(INKEY$ = "5"J 

= 10 LET y=y+Cy <0I •- tw>Si) : LET x 
=x + (x -,'SJ - tx ?3©> 

_ii20 LET C=RTTR ty^x) : IF C<^40 
HMI> C<>4S THEN GO TO 1000 
^ a ?!fL LET C=RTTR Cy,x+1>. IF c<>4- 
AND Cf>4B THEN GO TO 1000 

24-0 PRINT O^ER 0>RT xjyW.h*: BEE 
F ^l*3l®j PRINT OVER l.:RT y.x;r* 

2 4-5 IF RND(.3 RND NOT PK THEN L 
2:T S- ( ~X 

S4.& IF 5 f THEN GO SUB 4£S + dP 

250 IF RND { . 5 THEN LET Jf=l 

£50 GO TO jfflfH-170 



270 LET Jy=ie + INT (RN03-4-.1+I 

2B0 LET in =150 

-ion i «=-r- : j -PMri ■ t t=~r ; ^ — r m *■ - ??V ~ 

f J d < . S > 

3SO LET q$=p$ RND Jd=l: LET q$= 
^$+CJ* RND Jd = -1) : IF RND f . 333 T 
HEN LET tr=l „ T 

305 IF tr=l THEN LET q $ = ( t « f 2 T 
O > AND Jd =1) + C t * ( TO 2> RND ja = 

- 1 '! 

310 LET ,>X=3© HUD *> d =-i , 
320 PRINT INK 0; RT jy,0; M 

325 PRINT INK 1; RT Jy .. j"x;q* 
330 LET Jx=jx+jd 



34-0 IF jx=0 OR JX=31 THEN LET I 
n=100: LET tr=0: LET j f =0 : PRINT 
PRPER 6; RT Jy ,0; " 

" : GO TO 170 
350 IF y<l© RND INKEY*="1" THEN 
GO TO 510 

3S0 IF tr=l OR NOT CjX>=INT X-l 
RND jX<=X+l) THEN GO TO 170 
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370 LET e=y+l: FOR f=jy-l TO £ 
STEP -1: LET b=RTTR (f.jx+1): IF 
b=40 OR b = 4S THEN PRINT PAPER S 
INK 2.; RT f j JX+l; ".": BEEP . 1 , f 
PRINT INK 0;RT f,Jx+l; ,= "; NEX 
r f 
330 PRINT INK Oj RT f , J 3< +1 ." " " 
390 IF (jx+l = X+l OR jii+l=xj RND 
r=y THEN BEEP 1,-5: GO TO 1O00 
400 GO TO 170 

4-10 rem Transport soldier 

i2S LET SdX = INT (RND*303 +1: LET 
Sdy=12 + INT CRND#5J ; LET dp=10: 

LET t =INT <RND*2S) +10 
430 PRINT INK 1;RT sda.Sdx;'!": 
BEEP .15,0 
440 LET t=t-l; PRINT RT sdy.sdx 

," " : IF NOT t THEN LET Sf=0: LE 

T dp=0: RETURN 
450 IF y=sdy RND x+l=sdx THEN L 

£T SC=SC*5e: BEEP 1,5: LET Sf=0: 
LET dp=(d: LET p*L=l: RETURN 
460 IF INKEV$<:>"1" THEN RETURN 
470 PRINT RT y +1 ,, x + 1; " J. " ; RT y +-2 

*S0 IF 5dy=yt2 RMO sdx=x+l THEIH 
r-OR m=y+is; TO y STEP -1 : PRINT R 
T W , X +1; M W" ; BEEP .3,0: PRINT RT 
at. _.m +1;. " ": feiE>^r ».- j>. jpf ■?* — ? • i *^ 
i * r =*a : Ltl dp =0 : LET £C=SC+25 
490 PRINT RT y +1., x +1.; " " ; RT y +£ 

' 500' RETURN 

El© LET e=jy: FOR f=y+i TO e: L 
tT b=RTTR *f,X*ii; IF b=40 OP b= 
4t> THEN PRINT PRPER 6; INK a ; RT 
/ , X +1 ; "T" ; CHR$ S. BEEP .1,30-f; 
HRINT INK 0.: RT f.x+1;" ": NEXT f 
GO TO 530 

520 PRINT INK 0; RT /,x+l;' 1 " 

&30 IF b=49 THEN BEEP 1,-E; LET 

SC=SC+10: LET fuet = fueU20*(U = 
Xi : PRINT RT Jy,jx,;" ": LET J 
» =0 : GO TO 340 

540 GO TO 170 

560 REM 

570 RESTORE 

5B0 DRTfl "a" , 1,1,1, 555,255 , 195. 
22 9.. 24 

iaS0 DRTR "b M . 15 • 124, 5,53,63. 19?=: 
,219,24 
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600 DRTR ■•c",12S,,l£8.,128 J S55,25 
5,195,219,24 __ . 

510 DRTR "d" ,48, 12, 10,252,252, 1 
^5F- 319 ■ P4 

620 DRTR "fi" ,0, 16.. 124,254,255, 1 

^63© DRTR " f'\. 0,0, 192, 199,255, 1, 

"ols DRTR "9^,255, 0,O, 0,0,0.0..© 

650 DRTR "h", 7, 0,0, S,0, 0,0,0 

650 DRTR "a ", 125, 97,97,255,255.. 

195,219,24 

370 DRTR "j",S55,S39,19S,S3S,25 

5 , 195,219, 24 

660 DRTR "K", 16 , 15, 16 . 16 « 16, 16- , 

34 , 56 

690 DRTR " L 11 , 138,73, US., 1SS, 114 
, 22 , t*'d> , 176 

700 DRTfl "Ift",36 .36, 24 , 16 . 16, IS , 
IS = 16 

710 DRTR "n", 153,90,78,56,6,2©, 

35 , 34 

720 DRTR "O ",231, 125,24 , 24,50, 1 
26,50,24 

730 DRTR "p", 126,255,255,255,25 
5, 195.90,24 

970 FOR C=l TO 15: RERD C* 

960 FOR £=0 TO 7; RERD n : POKE 

"390 NEXT c 
CS'535 r,c TIJRN 
3 0S0 PRINT INK 2; FLASH 1 ; RT y,x 

^7rt y,x; " ": LET y=iNT (RND*i 

07+1; LET X=INT (RND*39) 

1020 LET Uves = livas-l «.«&.- 

llli IF fueKl THEN ^XNTrUjaH 
l;"OUT OF FUEL!, I'M RFRhID iHIS 
£S THE END" ' GO TO 104v3 
ia-30 IF lives THEN GO TO 170 
1040 IF SC<h(5J THEN GO Tu 1200 

i| 5 @ input "Please enter your na 
rue for the score tabU",n$ »»•»» 
1060 FOR r=5 TO 1 STEP -1: BEEP 
,l,r: IF SOhtf) THEN NEXT r 
2070 FOR 9=5 TO f +2 STEP ~lj_ BEt 
P =l,g: LET hCg)=h(g-U: LE J S*J 
3) =S$ tg -li ; NEXT g 
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i0S© LET h(q)=SC: LET S £ ( 3 I =n * 

1038 BORDER 1: PAPER S: INK 7 : E 

SIGHT 1: CLS 

1110 PRINT INK 5;RT 3,2, "TODRY5 

CHBMPIDN5 fiRE-" 

1120 FOR 3=1 TO 5 



BEEP . 5 j a : PR 



RT 7+a.,S,;sJ(a);" '*; h £^ 

PRPER 4-; INK 
WANT TO PLAY 

OR INKEY$="N" 

GO TO 121 







INT INK 
> : NEXT a 

120© PRINT FLRSH 1 
0;f}T 16,3; "DO YOU 

ISIS IF INKEYjr-n" 

THEN GO TO 124*0 
1230 IF INKEYi="" THEN 

1S3© GO TO 30 

124.0 BORDER 7: PRPER 7: INK 

RIGHT ; STOP 
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Snake 



Written by David Perry, SNAKE is a game 
demanding a steady eye and concentration. 

The object of the game is to Lead your 
snake around a garden - surrounded by an 
electric fence - while getting the snake 
to eat mushrooms. Each mushroom makes the 
snake grow longer, and you must make sure 
you do not hit the snake's tail... or the 
game wi LL end. 

Here's what it looks like in action: 




: SCC-RE : 1 a :• **> '^t t'rHKL; -I & -iHl- .j*20S£: . -S i 



g 



5 

I 

5: 



§ 




5y 

5 



#WflWft¥WM teWV^^ 



37 



And here's the Listing for SNAKE: 



2(3 GO SUE 21© 

2S REH ***Msrt di^pUy 

3© LET 1=0. INUERSE fS ■ BRIGHT 



: n_SSH 
NK 7: CLS 
4-© PR INT 



?£>EH . 



PAPER 




» 9 » a 



110 PRINT RT i4-.-2.: "U=-£ t£ ! 4= Q r Z 

, X&p for u» ,-^oter. « ~ .- ppxnt " -.eft 
and right. Esch lise you". PR IN 

T -' est £ tc<£d£- 1 C-C< I the =.nSK£ wi 
U " : PRINT * J gfSfct ii?.tjg£:',": PR IN 
T " BET CRREFIJL NOT TO BUMP INTQ" 

120 PRINT " YOUR QISH BGDV OR TH 
E FENCE I I I " 

130 PRINT_l_PRINT IHK 3;** 

INK I; "ENTER 



14-0 PRINi HI iS,t>; 
LEUEL OF PL ftY * * 

IS© PRINT RT 12,11; INK I/2;"(i 
TO 3> " 

135 REM ***XnpUt LSVft 
IS© LET fi$=INKEY$: IP RS = "'* THE 
N LET 1=1*1 IP I>7 TKEM LET I=© 
178 IP P$<"1" OR R$>"3" IH&i GO 

ro 1^-0 

150 LET L=URL P£ 

190 INK 

£00 GO TO 358 

£05 REM »4*User defined Chrt 

210 FOR R=± TO 5 

220 PER!T- ft$ 

230 FOR N=© TO 7 

2<^0 RESD 3 

25S POKE IJ5R R5rN,e 

25© NEXT N 

270 NEXT R 



38 



£SB OATR :, fi" , IBS , I0£ , 195 , 153 , 15 
3 , 195, 10£ j 139 

2S© DRTR "B" / B i 6e J 126 f 153,24,24 
, 24- , 24- 

30© DflTR ■ : C",se ; 36 / 189,102 / 102 J 
ISO ,36 , 30 

310 DRTR "D"..0,34 ,34,SS .S5,S5,1 
3S, 136 

320 DRTfi "E",2£i,96,-2S,3,.26,9B..2 
3,3 

33© LET HS=© 

34-0 RETURN 

35© LET BS= ,: p" 

330 BORDER 7 

370 PRPER 7 

33© LET R=© 

390 LET 5C=0 

4-0© CLS 

405 REN *-s*Screen set 

4-1© PRINT RT ©.©; INK 

5; " < SCORE: ©>'"; INK 1;' 
2;"5NRKE"; INK X; " <fr" i 
■' BNE> H5<100);"HI-5COfit 
*' RHO HSUS9.1 

4-2© FOR N=i TO 2© 

430 PRINT RT N,0; INK l;.'^ 

*4-0 NEXT N 

4-5© print st 21, s; 

4-60 LET X-10 

4-7© LET Y=19 

4-S0 LET R$ = "" 

4-S© FOR N=10 TO 1 = 

500 Lt; y-im~RSe + " 1&" *■»>* -H* N 

510 print bright 1; ink 2;rt ib 
.n; -13" 

520 NEXT N 

53© GO SUB 300 

54-© LET D$=INKEV$ 

5<45 REM i*#K64 input 

550 IF D$="P" OR D^= c- q" OP D* = " 
3." OR D$ = "Z** THEN LET S5=&$ 

5S0 L ET X =X *i3S^"Z " J - V»S =" ^ " .' 

570 LET Y=Y+!B$ = "P , 5-tB$ = "i < -} 

530 IF X=2i Oft X=© THEN GO TO 6 
50 

530 IF V=31 OR V"=© THEM GO TO 6 
5© 

"S00 IF .9TT.R !X,Y.i=i22 OR X =22 O 
R Y=32 THEN GO TO 830 

31© GO SUB 75© 



up 

l; ""; INK 
r &> "; INK 
INK 4-; (" * 

; HS; r " > 



IHK l; ^WMWsW 
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i^3@ IF XU0 THEN LET C$ = "* "+5TR 
* X 

54-0 LET DS=ST"H$ V 

D^S IF Y<I© THEN LET D$ = '" "+STR 
5 V 

63© LET XinJSL fi$( TO 2 ^ 

678 LET Y1=URL R£ ( 3 TO 4.) 

bss if AiiK fxi^Yij ff>iea then e 

O TO 700 

bQQ PRINT RT Xl^Yl: *' " 

fc95 REM * * JP/ int SBdfce 

700 PRINT BRIGHT i ; INK 2; ST X J 

?ie LET S$=R5^C3+D* 
} "2S? IF R=0 THEN LET fi$^S$;5 TO 

730 LET R=R-tR>0i 

740 GO TO 54-© 

750 L ET M =RTTR < X , V > 

7&0 IF H<>6© THEN RETURN 

770 LET R=R+L 

780 LET 5C=5C+L 

7=?0 :--rint rt s,e; ink s;-"\ 5C ore 

. ; i?C ; ** > ** ; lf#, i ; -'#*> ' ; INK 2; "SN 

Rf^E '; ink %j"W'; INK i; " <Hi-scn 

HE . " ; H5 ; ■ "' > " snr< H3 -; i©© * 

30O PRINT FRFER 7; INK 4;ST iMT 

I RNO # 1 is } -«-2 » INT V RN L> *2 S J *2 ; " T " 

SIS FUR n =50 TO -20 STEP -1© - g; 

EER . 01 , n : NEXT n 

82© RETURN 

330 LET X=X- fX=22> + fX = -l* 

8 4-0 LET V =Y - i"Y = 32 J -I- i Y' = - i > 

S50 FOR F=5B TO -2© STEP -3- BE 

EP . ©2 , F : NEXT F 

SEE REN **.*Er>d of 93IS 

360 IF SO.H^ THEN LET .HS^SC 

3 70 PR INT RT 18,1»;"HIG.H SCORE 

" .; HS 

S3© PRINT RT I2.1i;"Pf£SS a fcs^ 
t «■ 

320 LET 1=0 

2©0 PRINT RT X,¥; INK !;"#"- BE 
EP .81,1*2 **».=**= 

2©3 REN j^fjprint scores 
SI0 PRINT RT 3,3; INK I; FLRSH 
l; " >You scored -> ; sc; " points. <" 

220 LET @$ = IN.KEY$; U* g* = "" THE 
N LET_I=I-M; IF I>7 THEN LET I=© 
23© J.\- ^3='- : THEN SO TO 23© 
24-0 C-L ir 
23© GO TO 3© 
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Dodgems 

This fast-moving action game is by Raymond 
Blaka. You steer your car around s track 
with four Lanes, passing over flags to 
gain points. At the same time, you are 
trying to avoid the suicidal car 
controLLed by the computer, which travels 
in the opposite direction to you, trying 
to spoi L your fun. 

You can change lanes in the four gaps in 
the track, and you can change tracks as 
many times as you like. The suicide car 
can a Lso change lanes, but it is limited 
to moving a single Lane at a time. Despite 
this, you'll find this a very difficult 
game. 

Near the start of a run, you' LI gain 
points for red flags, which turn yellow as 
you pass over them. When you've run out of 
red flags [or you just feel Like a change] 
passing over the magenta fLag will aLLow 
you to gain points from yellow flags, but 
wilt also allow your Kamikaze opponent a 
chance to catch up! 

Another megente flag will appear in 

another part of the track, and passing 

over it wi L L once again change the color 

of the flags which allow you to gain 
points. 

20 FOR i =1 TO S: RERO XsL FOR 
.i=© TO 7: RERD Z: POKE U5H z:$-i-j 
Z : NEXT J : NEXT i 
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35 LET C=E: LET Cl=£: LET 3C=© 

49 BORDER '3: PRRER S: INK "7: B 
RIGHT JL: CLS 

50 PRINT "SSSS8SS3BSSSSBSSS3SS 

BBBBSimsssBtt 

60 print "as"; ink a; '11111111 
1111 111111111111"," INK 7>/"B8 

70 PRINT "SS" ; INK 2 ; "1" ; INK 
7; "SS8S9SS55SS 8t?s£?? JTSJtJ* SSS " " 

INK 2.: "1" ; INK 7 : "88" 

75 PRINT "88"; INK 2;"1"; INK 
£&-§-£ INK 2; -1111111111 1111 

T 1 1 1 1 1 " ; INK 7 ; " & """ ." ±NK ^ , "" T " ; I 
NK 7; "SB" 

80 PRINT "88"; INK 2;"1"; INK 
7; "»"; INK 2;"1": INK 7;"3S8S8BS 
88 BSIS3838SS"; INK 2;"1": INK 

7; *»"; INK 2.; " 1 '" ; INK 7; "StT " 

55 PRINT * SB"; INK 2;"1"; INK 
7 :"«"; INK 2;"1"; INK 7."S". INK 
2: "««**<*««* Jt^^^if"; XNK 7 



a I £ a J ( 1 



s; 1 



£f«% 



INK 



*« -i 



2: "1*= ; INK 7; "3B" 

9© PRINT "SB"; INK 2;"1"; XNK 
7;"S"; INK 2;"1"; INK 7. 'S"-: INK 
2; "1 \; INK 7; "w»»#«ss BSSSSrr 
»"; INK £;"1"; INK 7;"tt"; TtW. 2: 

; "8S" 

95 PRINT ^B8".; INK 2_; "W INK 
'ItTi INK 3* *""1"j iHK 7j "4t" -: iNK 
INK 7 i " 8 «■ : INK 2 , " 1 11 1 1 1 
[11111", INK 7; "3": INK 2; "1 
'; INK 7; "8"; INK £;"1"; INK 7;" 
»"; INK &i "1*\; INK 7., "HIT' 

I0S PRINT "88"; INK 2; "1 ': INK 
7; "8": INK 2:"1"; INK 7. : "K" . INK 
2; "1"; INK ~_. "8 _, INK £.."1-, IN 
K 7; "8J?S8S3S:383B»8?r- . INK 2."1"; 
INK 7. "8" ; INK 2;"1": INK 7.; "it" 
t INK 2_;"1": INK 7;"*t"; INK 2> "1 
" ; INK 7; "88" 

12S PRINT "-£#"; INK 2, ** 
; INK 7; "3 3"; INK 2: 

"; ink 7; "as?" 

115 PRINT "88 8 

8 88" 

12S PRINT "SB"; INK 2; " 
; INK 7; "8 H' 

".: INK Ti "88" 
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125 PRINT * #8", INK 2.. ' 
: INK 7; "8 tt"; INK 2; 

INK 7 : "81? 

130 PRINT "SB" ; INK 2.; "V', INK 
7: 8 . INK £± t 1 , S»*«K - .* ** _, -\ —'_;:.; 

2; '"1"; INK 7: "8"; INK 2j 1 i Xr* 
K 7; "smBSBBSGBBBBKB"; INK 2;"1"; 

INK 7; "8": INK 2;"1"; INK 7;"B' 
; INK 2:"1": INK 7; "8"; INK £, ' 1 
" ' INK 7 : "88" 

135 PRINT "SB": INK 2;"1"; INK 
7; "It"; INK 2,^1"; INK 7,-8", xNK 

2;"1"; INK 7, "8"; INK 2., '111111 
' Hl1111", XNK 7^-S"^ IN* 2^, 1 

»; INK 7; "8"; INK ^;"1"; IH& 7* 
»"-; INK £;"1"; INK 7, "88" 

14-© PRINT "88"; INK 2;"1"; INK 
7; -«" ; INH 2;"1"; INK 7; "8"; INK 

£;"1". INK 7, "8888888 888888 
S"; INK 2:"1"; INK 7; "8"; INK 2^ 
**^"; INK 7; "8"; INK 2;"1".i INK .- 
; "88" 

150 PRINT "88" I INK S J **<*** INK 
7: "It": INK 2."1". INK 7, "S'\; INK 

2:"11111111 " 11111111", XNK 7 
; » 8 " 7 INK 2 : " 1 " : INK 7 ; '3" ; INK 
2; '*<!*' ; INK 7: "88" 

"l50 PRINT "83"; INK 2; *1"; INK 
7:"«"; INK 2; "1"; INK 7; "8888888 
ntt 8RC88S888" ; INK 2:"1"; INK 

7 ; "8 '■■ ; INK 2, "1 " , INK 7 : " nit " 

170 PRINT "88": INK ^.: ' 1 ' ; INK 

7 : tt : INK ^.. iimmiii _tit! 

111111"; ink 7 ; " 8 ; INK 2; 1" ; I 

NK 7: "83" 

138 PRINT •■83": INK 3; "*f i XWK 
7; "SS8S3888S83 3SM38588SE"; 
INK 2;"1"; INK 7; "88" *^ 

190 PRINT "88"; INK 2; "11111111 
1111 111111111111 "i INK 7, "8?? 

200 PRINT " 88888838888888888888 
38888^888838" 

210 LET X=20; LET y=2; LET Xl=I 
; l_ET vi 1=29: L.ET 2:1=55: LET f Uy 
= 

220 PRINT m~ x.y; INK 4.:"*£";RT 
XI j Ul. INK 5. "*"" - RT S^isii.; INK 3., 

FLR5H 1; "1" 

230 LET i.ari£ = l: LET l.5n^I=l 

24-0 PRINT RT IS, il; "Scars ", kT 1 
1,10; "Hiscore **jf*£ 
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35© LET a$=S": LET 

b$="S": LET n$="lj?** 

30© IF flag;© THEH C*D TO 50© 

31Q IF 5CREEH$ iX+ia$-' 1 6"S -iaf = 

"7"3,yr(as = "5'}-i35 = "5"j • w T 'S" T 

WEN GO TO 4S© 

3 £ © XF 3 * — * " 5 l ' THEM LET -5 31 — " * tf * ' 
LET J&i=^"; GO TOMBS' 

33© IF a$="S* THEN^LET a$="S"; 
LET F;i^ = "$£'": GO :Q 4*si? 

34© IF a $="7" THEN LETT a*="5"-. 
LET ftiS = "*$". GO TO 4G3 

35© XF a$="S" THEN LET 3S='7": 
LET lft$ = "4i" 

4©1 XF tx>5 RND X<13i CR *9>13 
RND y CIS) THEN FRINT RT X .. 9 ; INK 

Cl;" " -. GO 5UB 3©S ; GO TB 4- IS 

4-S2 LET a=RTTR (X -e- 1 3 $ ="©«' ) - i a S = 
"*"?"j .. y -r ia = = "3"* - ■5$ = "S"; ? 

4- ©3 RRXNT Q~*~ x . :: i I"- ! K ,— > * t " 

435 IF 3=195 THEN GG SUB SS© 

4-07 XF a=64tCl THEN LET SC=5Ctl 

4-10 LET X=X + ia$ = "o"> - U £="7"> ; 
LET y = U + i5$ = * T S" J - U£="S"; 

426 PRINT ST X > 9 l INK 4- ; Sa $ 

4-3© PRINT RT iS,17;5C: SEEP . 0© 
I ■ 2© 

4-S0 XF X=Xl RND y=yl THEN GO TO 

S©© 

50© XF flag:© THEN LET f lag-f U 
3 -2.; SEEP .@£,2E 

SI© XF SCREENS (xli ibi="&") - (bS 
= •■7" j ,mf(b|="6"} -f fc¥="S-S ? c;>"»" 

THEN GG TO 50© 

Sa© IF b$="5" THEN LET b$=' 
LET ^V$ = "4i' , : GO TO &0© 

53© IF b£="S" THEN LET b$="5" : 
LET n $ = "*$": GO TO 6S8 

54-0 XF >$ = '""?"' THEN LET h§="6" : 
LET !*¥ = "!*" : GO TO 523 

SS© XF b$="S" THEN LET &^="S": 
LET n^ — '"3?"; GO TO 5©3 

530 IF iX>S RND X <±Sl OR iy>13 
RND 9=: IS) THEN PRINT RT K,yj" 

GO SUB 3©©: GO TO Si© 

6©1 XF £xl=3 RND b£ = "S"J OK (yi 
= 14- RND b$ = "S"J OR iXl = iS RND b$ 
= "7") OR (yi=17 RND fe$="5"5 THEN- 
PRINT RT xi .Ml: INK ci;" "-. GO 
SUB 73© 
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S©2 X*= ( X 1 > S RND XX i 13'; ^P iyl' 
13 RND 9 X < IS) THEN FSIHT RT X 1 .. 'J 
X: INK Cl;" ": GO TO 61© 

633 LET Z=RTTR tslr ibs^'&'J - ?b$ 
= "7" J .yit ?b$="S" ; -ifc*= •'»** J I 

S©5 PR INT RT >:i.ui; INK £ i 2: 1 -64 
1 - f 12S RND X 1 -64- > B> 3 ; FLSiH I RN 
O Z 1-S4 >3j "1 '* 

S©S LET Zl=2 .*-«*.« 

61© LET H'l=XH-(b$="6 , 'J- f .b? s <- ' 
LET yl^l^ib$ = 1, S"J-(b$ = "S") 

52S PRINT RT Xl.Ul; INK 5;n$ 

535 XF X=Xl RND M =9 1 THEN GO TO 

30© 

55© GO TO 33© 

730 xp L5n£ = Uri£l THEN RETUKN 

7S5 PR INT RT X 1 > 9 X > _ INK _ C 3. } *' 

ET~ Lan£l= I 3f:sl + '. .-a 

75© LET ?;i=KlfUnfc$="£")-?bt=" 
5" 3 J 

7S© LET yi=yH-U(5b$="7") -ib$= 
5" 3 3 

S3© *FOR W i"=25 TO -1© STEP -X: BE 
EP . SS . i . NEXT i 
SI© PRINT RT 14. 3; PRPEP 4.; INK 
s; FLR5H I; "Press any kail *'^»" 5 
nstij game" 

615 XF 3£>b3 THEN LET hS=SC 

S28 XF IMKEY S<;-" " THEN i^O TU S3 
© 

S3© IF INKE/$^"" THEN GO TO S3© 

345 GO TO 35 ^^ 

35© LET C =£-C ; LET C X=c-C-i-j s-ET 

SC=3C-1B. KEEP .31,33: SEEP -02 

' 655 LET f lag=is 

850 LET SC=£C+1© 

S7S LET tin=INT tRNDt2S) +1_ LET 

COl=INT CRNDfSSJ ti; IF CODi SCR 
EEN$ (I in. CO (.3 <>© THEN GO TO S/O 

S75 PRINT RT tin.. CO I J INK 3; FL 
R5H I: "i" 

855 RETURN 

S38 LET i $=INKEY$. IF 9 > 13 RND 
■4<1S THEN GO TO GEO 

305 IF 9 >SS THEN GO TO 32E 

918 IF i$="5" RND 9^2 THEN LET 
^=u-2: LET tana=iana -! 

315 IF i$="S" RND 9 <S THEN LET 
vi -M +a : LET lari£ = Lan£-i-X 
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330 RETURN 

330 IF i * = "5 '' RND y J S3 THEN LET 

y =y -2: LET Lane = U.Tatl 

935 XP i$ = *"S" RMD '-$<£3 T.MEH LET 

y=y+S; let Une = Ufie-l 

34-© RETURN 

953 IF X>15 THE:\ ! GO TO 375 
950 IF i$='S" RMD X <T THEN LET 
X =X +3 ; LET lanS = l3fi£r! 
3fc>5 IF ig;="7" RND X > 1 THEN LET 

x=x-3-. let une = lane-i 

97S RETURN 

S3© if i $ = - S" RN£> k tSB THEN LET 

X=>t+H: let une = uns-i 

335 IF i$=-' fiND X M4- THEN LET 
X =X -2: LET l^riE^Lans-i-5. 
330 RETURN 

12 .. 6S , 124- .. 5S , 12 .* 4 t 



1330 DRTR --»- 

4- ..4- 

10IS DRTR "b' 

3 , 255 . 153 

i©20 DRTR " c " . £H 

S3 .. 7S, 324- 

i 3 D RT R 

X25 . S£? 34 

I34i?."c-HTR 

4,114.7 

5030 IF ftag>© THEN LET f !.3Q=f la 

3-1 



34- .. 50 , 126 .. 30 , £4^ .« 15 
76 ^ 63 .. 355 .. 355 > 

153 , HE5 . 153 .. 2* . 30 ., 



IT 9f cphic R 

_ &- graph i e b 

*W" graphic C 

^ar — g; aphic O 

^r - graphic E 



Zombies 



Zombies, from David Perry, is a game in 

which you must Lure the Zombies into 

swamps. They are blind, end always move 
towards you. 

Full instructions are provided within the 

program. Use the cursor keys to move 

around. Note that the pound signs in this 

listing should be entered as hash [#) 
signs. 



1 


REM 








^! 


REM 








~T 


REN 




> zombies •:: 




4 


REM 




-r. = 




5 


REM 








& 


REM 




COPYRIGHT 




'~J 


REM 




DAVID PERRY 




s 


REM 




1R83! 




9 


REM 








10 


REM 








U 


LET 


NUI* 


«10j DIM N('NUM-< 


- 1) : D 


IM N*<NUM+1. 


B) ! ROR N=l TO 


NUM: 


LET N(N> = 


=1100-<N*10Q> : LET 


N* (N \ 


^"SPECTRUM": 


NEXT N 




12 


BORDER 


7: RARER 7s INI- 


: : B 


RIGHT 0; 


OLE 






13 


LET 


LEV 


■■=5: GO SUB 66 




14 


LET 


EC~ 







15 


BORDER 


7: PAPER 7: INK 


0: E 


RIG HI 


" 0: 


c;lb 


: DIN A (LEV) : 


mn b 


( LEV ) 


: LET K 


ILL=0 
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1.6 PRINT AT 0,3: " 

41 

17 FOR N=l TO 20: PRINT AT N.3 
; " ": INK 4; " 
"; INK 0; " ": NEXT n 

1.8 PRINT AT 21,3; " 

ii 

1.9 BRIGHT 0: BORDER 7 

20 PRINT AT 2,28; "7"; AT 3,27;" 
5"; INK 2;">;"; INK 0;"8";AT 4,28 
;"6";AT 0,26; "Move. "; AT 1,26;" — 
— ";AT 6,27; "Key"; AT 7,27;" " 

21 PRINT AT 8,27; "You="; INK 6 
;"a";AT 9,26: INK Qj " 2cwb»" j| INK 

2;'*b";AT 10,26; INK 0; "Swamp"; 
INK 3; ";r" 

22 PRINT AT i 2, 27; "GOOD" ; AT 13 
,27; "LUCK"; AT 14,27:" 

23 PRINT AT 16, 28; ""; LEV-KILL; 
AT 1 7 , 28 ; " TO " ; AT 1 8 „ 27 ; "K I LL ! " 

24 FDR N=l TO LEV"' 

25 LET A C N ) * t NT C R N D * 2 ) : L El" 
B(N)=INT (RND*20) : IF ATTR (A<N) 
+ 1 . B ( N ) +4 } < > 1 2 4 THEN (50 TO 25 

26 PRINT AT A (N) +1 , B (N) +4: INK 
2; PAPER 4; "b": NEXT n 

27 FOR N=i TO LEV*5 

2 8 (.. E T A :--; I M T ( R N D * 2 ) : LET B*-- I 
NT i RND *20 ) : IF ATTR ( A+ 1 , B+4 ) < > 
124 THEN 00 TO 28 

29 PRINT AT A+l.B+4: INK 3; PA 
PER 4 s "c": NEXT n 

30 LET X=INT <RND*20); LET Y=I 
NT (RND#20 ) : IF ATTR < » 1 , Y+4 ) < > 
124 THEN GO TO 30 
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3 1 P R I N T AT X + 1 , Y + 4 ; I NK 6 ; P A 
PER 4$"a"; FOR N=0 TO SO STEP 5s 

BEEP .02,N: NEXT N 

32 PRINT AT X+l,Y+4; INK 6; PA 
PER 4 ; " a " 

33 FOR N=l TO LEV: IF A<N>=100 
AND NH..EV THEN GO TO 49 

34 IF A(N)=100 THEN NEXT N 

35 IF KILL-LEV THEN (50 TO 91 

36 IF N>LEV THEN LET N=LEV 

37 PRINT AT A <N) +1 , B (N) +4; BR I 
GHT Is INK 4; " " 

38 IF AtNXX THEN LE:7T ft(N)^=ft( 
N)+l 

39 IF B(N)>Y THEN LET B<N)=B( 
N ) - 1 

40 IF A<N)>X THEN LET A<N)=A< 
N)-l 

41 IF B<NKY THEN LET B(N)=B< 
N)+l 

42 LET A=ATTR ( A <N) +1 . B (N) +4) 

43 IF A* 124 THEN PRINT AT A(N 
)+l.B(N)+4; INK 2; PAPER 4; BRIG 
HT 1 j "b " : BEEP .01, N : NEXT N 

44 IF A=99 THEN LET SC=SC+10: 
FOR 1=7 TO STEP -1: PRINT AT 

A(N)+l,B(N)+4; BRIGHT 1; PAPER 4 
; I NK I ; " C " : BEEP . 02 ,1*7: NEXT 
I: PRINT AT A (N) +1 . B <N) +4; INK 3 
; PAPER 4; BRIGHT l;"c" : LET KIL 
L-KILL+1: PRINT AT 1 6, 28; ""; LEV- 
KILL;" ": LET A(N>-100! IF N<-L 
EV THEN NEXT N 

45 IF N>«LEV THEN LET N=LEv* 
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46 IF NOLEV AND A(N)=X AND B< 
WJf=Y THEN FOR 1-0 TO 7: PRINT A 
T A(N)+l.B(N)+4; BRIGHT 1; FAPER 

4; INK I; FLASH l;"a"! BEEP .1, 
1*7: NEXT I; GO TO 97 

47 IF KILL-LEV THEN GO TO 91 

48 IF N<LEV THEN NEXT N 

49 IF LEV^KILL THEN PAUSE 30: 
GO TG 91 

50 FOR 5=1 TG 2: PRINT AT X + l . 
Y+4; INK 4; BRIGHT 1; " " 

51 LET X=X+(INKEY*="6">-(INKEY 
$^ " 7 " » : LET Y== Y+ ( I NKEY#* " ® " ) - ( I N 
KEY*="5"> 

52 LET A=ATTR (X+l.Y+4) 

53 IF &~1124 THEN PRINT AT X+l 
. Y+4; INK 6; PAPER 4; BRIGHT 1;" 
a": BEEP .04,20: NEXT G: GO TO 3 

54 IF A=9B THEN GO TO 103 

55 LEI LEV -5: CLB : PRINT AT I 
.lis "ZOMBIES": AT 2, 11; "=======" 

56 PRINT AT 3,1; "YOU ARE SLDWL 
Y SINKING INTO THE" 

57 FDR 1=0 TO 7: PRINT AT 1+6. 
S ; PAPER 7- I ; I NK I ; " SWAMP 

" : NEXT I 

58 PRINT AT 16,3; "HOWEVER YOU 
HAVE MANAGED " : PR INT AT 1 9 , 5 ; "TO 

SCORE ";SC;" POINTS!" 

59 PR I NT £ 1 : " { c ) Cap y r i ah t DA V 
ID PERRY 1983" 

6.0 LET 1=0 

61 PRINT AT 21,9; INK I; "PRESS 
A KEY i " 



50 



62 LET 1=1+1: IF I >7 THEN LET 
I«l 

63 IF INKEY*="" THEN 60 TO 61 

64 LET LEV=5: PAUSE 

65 GO TO 106 

66 CL S t PR I NT AT . 1 ; " 2 OMB I E 
S"; AT 1,10; i'»M»ff*M*«n**i 

67 PRINT ! PRINT " YOU HAVE J 
UST I..ANDED ON AN" 

68 PRINT " ISLAND POPULATED 
WITH?" 

69 RESTORE 70: FOR N=0 TO 31: 
READ A : POKE USR " A " +N , A : NE X T N 

70 DATA 0,24,126,24.24,24,24,0 
, 129, 1.95, 165, 165. 102,24,36,24,12 
?, 126,66,90,90,66, 126, 129, 153.90 
,60,231,231,60,90, 153 

71 FOR N=7 TO 13: PRINT AT N.l 
; I N K N- 7 ; " Z CI M B I ES " : BEEP . 5 . N : 

NEXT N 

72 PRINT AT 14, 10; " ZOMBI ES" : B 
EEP . 5 , 35 

73 PRINT AT 17,0; " < c: > COPYRIGH 
T DAVID PERRY 1983 ! " 

74 PAUSE 10: FOR N=0 TO 27: PR 
INT AT 19-, N; INK 2;" b "; INK 5; 
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BEEP .02,N: NEXT N 



75 PRINT AT 19, N;" ": PAUSE 
10: BEEP .5,40; PAUSE 5: FOR N~ 

27 TO STEP -1: PRINT AT 19., IM; 
INK 2;"b " ; INK 5; "a ": BEEP .02 
,N: NEXT N 

76 CLS 

77 PRINT AT 0. 10; " ZOMBIES <": AT 

J. v 1U! *-* "■*** 
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78 PRINT AT 2,1; "The zombies a 
re -flssh-eators; however they 
are blind, that is your only 
a d v a n t a q e . t h e y come in pair k >z 

so you can use yourself as b 
a i t t ci 1 u r e t hi e m 1 n t a t h e ar ea 
s of swamD. Be careful, 

if you fall in a wit then yo 
u will die too. You only have 

one I ife sc-" 

79 PRINT AT 12,4;" B E CAP 
£ F U L ' " 

SO PRINT AT 14,1;" The movemen 
t kevs s.r& 5-B. " 

81 PRINT AT 16.2;" YOU="; INK 
S;"a"; TNK 0;" ZOMB IE----" ; INK 2;" 
b"; INK 0;" SWAMP="; INK 3;"c"; 
INK 0; ". " 

32 LET I =0 : PR I NT £ 1 ; " < c: > Cop y 
right. DAVID PERRY 1983" 

83 PRINT AT 19. 8; INK I; PAPER 
2; BRIGHT i;" PRESS A KEY' " 

84 LET 1=1+1: BEEP .01, I #7: IF 
r>7 THEN LET t«0 

85 IF INKEY*=" " THEN GO TO 63 

86 CLS : RETURN 

B7 CLB : PRINT AT I. 11; "ZOMBIE 
S"; AT 2, 11; " ««=*«**;**=*> 

S8 FOR N=0 TO 7: PRINT AT 4+N. 
Oj PAPER N; INK 7--N; "THEY C 
AUGHT YOU!": NEXT N 

89 (50 TO 58 

90 8 TCP 

c 'l CLE : PRINT AT 1,11; "ZOMBIE 
8"; AT 2, 11; »**»«*«>«*»■ 
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92 3 OR N=7 TO STEP -1: PRINT 
AT 4+N,0; PAPER N; INK 7-N; " C 

N G PA T U L A T I N S ": N 
EXT N 

93 LET BC=SC+<LEV*20> 

94 PRINT AT 13,1; "YOU HAVE SCO 
RED ":8C; " BO FAR! " 

95 LEI LSV-LKV+S; FOR N----1 TO 1 
STEP 2: BEEP . Q2,N: NEXT N: PR 
INT AT 15,4; "NOW TRY THE NEXT LE 
VEL": PRINT : PRINT " WITH 

"iLEVl " ZOMBIES' " 

96 PRINT AT 19,7; "BONUS POINTS 
«*"( (LEV-5) *20; "" 

97 PRINT £1;"(C) Copyright DAV 
ID PERRY 1983" 

98 LET 1-0 

00 PRINT AT 21,0; INK I ; "PRESS 
ANY KEY ' " 

100 LET 1=1+1: BEEP .02,1*5: IF 
I>7 THEN LET 1^0 

101 IP INKEY$="" THEN 60 TO 99 

102 80 TO 1.5 

103 CLS : PRINT AT 1 , 1 1 ; " ZOMBIE 
S":AT 2, 3 1; »**«»•*«*• 

104 FOR N=7 TO STEP -1: PRINT 
AT 6+N.O; PAPER N; INK 7~N;:" YD 

U HAVE JUST COMMITED SUICIDE ": 
NEXT N 

105 GO TO 58 

106 BORDER 0: PAPER 0: INK 7: B 
RIGHT 1: CLS 

107 IF SC<=NUO> THEN GO TO 12 
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1 OB LET NUM= 11: IF SC >=N ( NUM ) T 
H EN I NP U T "E NT E R 8 INI T A L S ! " ; P 
$i IF LEN P#>U THEN GO TO JOB 

1.09 PRINT AT 7,0; FLASH 1; BRIG 
HT Oj INK 7; PAPER 2:"THIB WILL 
ONLY TAKE A FEW SECS ! " 

110 IF SO=N<NUM> THEN LET N<N 
UM ) '-*--SC : LET N't £ NUM ) *«P* 

111 FOR A=l TO (NUM-1): LET B*= 
Nif(A>: LET C*«N* ( AH. ) : LET B=NCA 
) : LET C=N < A+ 1 ) ; IF E< C THEN L.E 
T N<A)-C! LET N(fl+1)=B: LET N* (A 
)™C$i LET N*<ft+1>=B* 

112 NEXT A: FOR Ne-l TO NUM-1 : I 
F N<NXN<N+1> THEN GO TO 111 

11.3 NEXT N 

1 14 CLS 

115 PRINT AT 2.4;"H A L L O F 
F A M E * N 

116 PRINT AT 3.4; ''============ = 



117 FOR N=l TO NUM~1: PRINT AT 
N+S,7; INK 6;"("; INK 2;N; INK 

6:">";AT N+5,12; INK 7;N<N>: PRI 
N T A T N + 5 , 1 7 ; INK 5 ? N*. C ff i a NEXT 
N 

118 PLOT 0.0: DRAW 255,0: DRAW 
0,175: DRAW --255. O: DRAW 0,-175a 

PRINT P(T 317,8? PAPER 2; INK 7;" 
P R E S S ANY K E Y ! " : L E T I = 

119 LET 1=1+1: IF I >7 THEN LET 

120 PRINT AT 2,4; INK I;"H A L 
L Q F F A N E ! " 

121 BEER .01,1*7: PAUSE 2: IF 1 
N K g¥*i~ " " T H E N G f ft 1 1 9 
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122 PAPER 7: INK 0: BORDER 7: B 
RIGHT O: CLS : GO TO H 

1 23 PRI NT AT 10,4;" SORRY SCORE 
TO LOW ! ! ! " 

124 PRINT AT 13.7;" PRESS A KEY 

125 PAUSE 0: GO TO 1 1 4 
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ADVENTURES 
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TROLL and THE CITY 

These two Adventure games, written by Nei L 
Pellinscci, ere pLeyed in similsr ways, 
although the scenario and solution are — 
of course - different. It is worth trying 
to convince a friend to type the programs 
in for you, so you don't find out the 
solutions even before you run them. 

THE CITY includes instructions in the 
program which precedes the main game. To 
complete the Adventure, you must say the 
password so your contact can hear it. You 
don't know who the contact is, although 
there are not many possibilities. 

In the second Adventure, TROLL, you must 
try and eacape from the Troll's Lair. He's 
very mean end wiLl Let you escape only 
over his dead body. Therefore, you have to 
ki LL him to win. 

In both programs, as in most Adventure 
games, you enter your commands as two-word 
phrases [verbs and nouns] such as GO WEST 
or DROP AXE. You'LL soon discover which 
wards the program will recognize. 

Note that each program has a Loader 
progrem [which for THE CITY doubles as an 
instruction manual). This sets up the 
screen and keyboard. 48K owners can leave 
out the CLEAR 32767 instruction, but the 
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CLS must be Left in. If you use the in- 
built SAVE instructions, note that you'LL 
have to set the colors and POKEs 
beforehand . 

The Loaders have been used to maximise 
memory spece for the main program. To type 
the games in, enter and SAVE the Loader 
program, then type in and SAVE the main 
game directly after it. When saving the 
programs, or re-running them, remember 
that the start LinB is 1 for the Loaders 
and 900 for the main programs. 

Here is the Loader for TROLL: 

l© REM fldvantuffi © Ha i '. 
Fti Lin=CCi 13&3 

20 BORDER 01 PfiPER 0: INK 7: 3 
RIGHT 1: CL5 

30 CLEfiR 32757 

4-0 POKE 23503,100: POKE S3651? > 
3. POKE 23624... 72 

50 LOAD "" 

And this is the main TROLL program: 

12 PRINT '"I AH AT THE TROLL S 
123 IF OO) THEN PRINT "I HflUE 



NO WEAPON AND 
UICKLY. " 

14- LET 3=P 

13 PRINT " 
P, WHICH 
. ": LET S=P: 

33 PRINT " 
RK CAUE. 
THE NORTH , 
HE ERST. " 

34- LET N=P 
RETURN 



I HUST 
RETURN 



LERUE Q 



X *»H IN 



:i.&.s w>; 



SMALL SHU 
DOG-FOuI> 

RETURN 
I RH IN A jHfiLL,_DR 
THERE IS A K?RTE I D 
AND R CLEARING TO T 

LET S=P. LET E=P. 
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36 PRINT ■" 

THE CAUE IS 

E=P: LET W=P 

3 9 PRINT 
L'K CONTI N UES 
SEE R SHOP 
FOUNTAIN TO 
4-0 LET N=R 
LET W=P: R 
42 PRINT 



I AH in r CLEARING . 
TO THE WEST.": LET 

RETURN 
I RH ON R PATH, WHJ 
TO THE SOUTH- I CAN 
TO THE NORTH , AND- A 
THE ERST . " 
LET 3=P: LET E =P : 

TL'RN 

' "THERE IS A FOUNTAIN 



"THE 



I 
R 



HERE, R ROHDLERD& OFF TO THE SO 
'JTH.": LET S=P: LET W=P: RETURN 
54 PRINT -"I AM STANDING IN A 
NARROW , ROCKV PASSAGE WHICH GENTL 
V RISES TO THE NORTH. I CAN 5E 
E DRV LIGHT R30v£ , '' : LET M =*P : L 
ET U=P: RETURN 

50 PRINT "I RH STANDING ON R 
GRAUEL PATH, A ROAD LIES TO THE 
cflST. " : LET N=P: LET E=P 

51 Ip 0(4.)=Ll1C THEN PRINT 
RE IS fl MOUND AT MY FEET." 

52 RETURN 

53 PRINT - : 'A ROAD RUNS NORTH -S 
DUTH. R FOUNTAIN LIES TO TH 
E NORTH.*'. LET N ~P : LET S =P . RET 
URN 

6 9 PRINT ' 
LEAPING WITH 
S=P; LET E= 

72 PRINT "• 
EST- THERE 
E EAST AND 

"73 LET W=P 
RETURN 

75 PRINT ■ 
CLEARING. 
FT IN THE 
LET D=P: RET 

34 PRINT ' 
THE RIVER 
MOUNTAINS 
RETURN 

3 7 PRINT •"A LARGE WOLF LERPT 
OUT OF THE TREES, AND KILLED R 
£. « " : GO TO S00£ 

90 PRINT ""I AH STANDING IN A 
CLEARING. I CAN HEAR RUSTLING N 
OXSES TO THE WEST.": LET N=P: LE 
T E=P: LET \J^=P- : RETURN 
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CAN SEE A SMALL O 
LARGE TREE.": LET 

: RETURN 

I AM IN A THICK FOR 

ARE CLEARINGS TO TH 

SOUTH , " 
LET E=P: LET S =P : 



" 'I AH STANDING IN A 
THERE IS A DEEP 5HA 

GROUND , " : LET U=P : 

TURN 

-THE ROAD ENDS HERE, 

ISTO THE SOUTH, WITH 

BEYOND , " : LET N=P : 



33 PRINT 
Bm ft RIDER 
IT MAY BE 

LET N=P: 

11+ PRINT 

£ RIMER BANK 

PTE GUARDED 
5ION EEYOND." 
115 LET S=DOG 



LET 

" r 



B\ 



THE PDRE5T ENDS HER 
LIES TO THE SOUTH. 
POSSIBLE TO CROSS." 



W =P : RETURN 
AM STRNC'IWG ON 



Tri 



CRN SEE 
ft Dub 

IF NOT 



INT "THE DOC WILL BE ft 



AM OPEN G 
ftND ft MRN 

S THEN PR 
PROBLEM. , 



N 



116 
117 

ft D 
=P. 

ass 

MANS 
ME H 
ELLY 
•300 
L =0; 
HEN 

"j O 
310 

"NO 
320 
330 

310 
34-0 
GO T 
S50 

a to 

380 

s=fls 
370 

IF 
P TO 
RN 
SS0 
300 
3 93 
ET U 
399 

"; ( 

D 5) 
Hi : 

^ pi /■ 

C 
005 
"; B 



RETURN 
PR INT 
OOR IS 
RETURN 
PRINT 
ION. I 
ERE. 
. " : LET 
PRINT * 
FOR Z = 
GO TO 3 
$ ( Z ) : L 
NEXT Z: 
THINS" 
RETURN 
IF 2=4 



"I AH HEAR ft MANSION 
AHEAD Or ME . " : LET 

I ftM NOW INSIDE THE 
CERTAINLY WOULDN'T L 
IT " S ALL DUSTY RND S 

U=P: RETURN 
" I CRN SEE . . . " : LET 
P TO 9.- IF O (ZJ =LOC 
30. REH THEN PRINT " 
ET FL=1 

IE NOT FL THEN PR IN 



AND LOG =20 THEN GO T 



; OS iZi : LET FL=1: 



PRINT "R 

O 310 

IF ft* CP; =" THEN LET ft*=ft* 

J : GO Tu BS0 
IF ft$(LEN ft*i =' 7 " THEN LET 
C TO LEN A$~P> GO TO 860 
LET B* = " J '; FOR Z=P TO LEN R 

A*(Z>=" " THEN LET B*=A**Z 

) : LET ft£=ft£* TO Z-Pi : RET- 
NEXT Z. RETURN 
GO SUB 3500: CLS 
LET N=0; LET S=0: LET E=0; 
=0. LET U=0: LET D=0 
GO SUB LGC*3. PRINT ' "EXITS 
"NORTH " RND N> ; ("SOUTH " R 
; ("ERST " ftND Ei i ("UEST" RN 

GO SUB 300 
INPUT INK 5, ' WHAT SHALL I L> 
LINE ft*: IF ft* = ■■*" THEN GO T 



GO SUB 350 
$: PRINT 



PRINT INK 8; As; 
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1007 IF LOC=4- RND RMD>.33 THEN P 
RINT "THE TROLL LEAPT OUT RND SM 
ASHEC* MY SKULL, I AM DEAD.": GO 
TO 9000 

1008 IF LOG =39 AND htOT DOG RND R 
^D>.3 THEN PRINT "THE DOG ATTACK 



ED ME AND KILLED ME 


, " ; GO TO 


90 


(50 












1010 IF 


R$=' 


' N " 


RND M 


THEN LET 


LO 


C=LOC-F- 


GO 


TO 


C-P-P 






1020 IF 


R$ = * 


t gj rt 


RND S 


THEN LET 


LO 


C=LOC+F. 


GO 


TO 


C-R-p 






1030 IF 


ft$ = ' 


'E" 


HND e 


THEN LET 


LO 


C=LOC+P. 


GO 


TO 


C-P-P 






1040 IF 


A* = ' 


■U" 


AND U 


THEN LET 


LO 


C=LOC-P. 


GO 


TO 


C-P-P 






104-5 IF 


A* = ' 


°U" 


OR R 4 ■ 


="E" OR A$ = 



H" OR ft*="S" THEN PRXMT 
GO IN THAT DIRECTION. 



I" 



"I CAN'T 
GO TO C 
THEN GO SUB 2000: 



THEN CLS 



GO 



1050 IF A$ = ' 

GO TO C 
1050 IF R$ = "LOOK : ' 
TO C-P-P 
1070 IF ft* = "D" TriEi-4 GO TO 3000 
1030 IF R*="U" THEN GO TO 3100 
1390 IF R$="GET V OR R$="TAKE" TH 
EN GO TO 2100 
1100 IF A$="DROP" 
EN GO TO 2200 
1110 IF A*="KILL" 


1120 


1130 
00 

114.0 
&00 
Xi50 

1180 IF A$="BUY" 
1170 IF A$="3AME ; 

LINE 393. PRINT 
RIPY "AD" : GO TO 
11S0 IF Rft="OUIT J 


1190 IF R$="H£LP" THEN PRINT "TH 
E TROLL WON'T LET YOU GO EUEN IF 

YOU ASK NICELY...": GO TO C 
1200 IF ft*="DIG" THEN GO TO 2900 
1300 PRINT "I DON'T UNDERSTAND . " 
: GO TO C 



IF ft*="OPEN" 
IF ftS="CROSS" 
IF ft $ =" UNLOCK 



IF A$="FEED 



OR A$="PUT" TH 
THEN GO TO 230 
THEN GO TO 240 
THEN GO TO 25 
THEN GO TO 2 
THEN GO TO 270 



THEN GO TO 2S03 
; THEN SAME "AD" 

'^VEPlIEY . . . " : ME 

O 
' THEN GO TO 837 
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203GI PRINT 'X H*H?E THE FOLLOUIN 
G ==..": LET FL=0: FO^ Z = l TO 9: I 
F OiZ>=D THEN PkINT "fl ";0$lZ): 

1 ST F|_zP 

2310 NEXT Z: XF NOT FL THEN PR IN 

T "NOTHING, " 

2320 RETURN 

2100 IF B4 = "" THEN INPUT INK 5j l 

H$> ; " WHAT ?V" ■ LINE B*; GO TO £ 

£105 IF OB=4 THEN PRINT "I CAN'T 

C.RRRV ANY MORE.": GO TO C 
2110 FOR Z=P TO 5: IF G$ (ZJ < TO 
L£N B$) =B$ RND D;2) =LuC THEN GO 
TO 2130 _ 

2120 NEXT Z: PRINT "I CRN ' T DO = 
HRT. " . GO TO C 

213© IF E$='DOO EONc" AND LOC=fc 
THEN PRINT "THAT WOULD BE STEAL I 
NS! " : GO TO O _ i _, 

2 14.0 PRINT "OK..": LET OlZ) =0: L 
ET OB=OB+P: GO TO O 

2200 IF B*="" THEN INPUT INK 5; " 
WHfiT SHALL I ") (A$;<,- " ?■?"' LINt 
B$: GO TO 2200 

2 210 FOR Z=P TO O: JF G* I'ZJ I' TO 
L.EN BJ) =B$ PHD 0;"Z>=0 THEN PRINi 

"OK,,"; LET OfZ) =LOC; LET OB=Qs 
-P; GO TO C 

2220 NEXT Z: PRINT "I HAUE NO "j 
3$; " I " : GO TO C- 

2 300 IF BS="" THEN INPUT INK 5; " 
KILL UHfiT?" ' LINE S$: GO TO 230S 
2310 IF B$<>"TROLL' THEN PRINT " 
I ' M NOT THAT SORT Or PERSON ! " : G 
u TO C 

2315 IF LOO,':. 4- THEN PRINT "I CRN 
'T SEE R TROLL! ": GO TO C 
£320 IF £M#J THEH ^-Rli-iT "VOU HRv 
E NOTHING TO KILL THE TROLL U 

XTH. " : GO TO C 

2330 PRINT -""UELL DONE. YOU HRU" 
E KILLED THE TROLL HMD ERRNT YO 
UR FREEDOM.'"': GO TO 5000 
£4-00 IF B* = "" THEN INPUT INK 5;" 
WHAT SHALL I OPEN"?"' LINE B$: GO 

TO 2400 
24-10 IF B*<;>"OOOR" THEN PRINT "T 
HAT I CANNOT DO.": GO TO C 
£4-20 IF LOCOSS THEN PRINT "UHfli 

DOOR?" . GO TO C 
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24.30 IF NOT DO THEN PRINT "IT'S 

LOCKED.": GO TO C 

2-4.4-0 PRINT "OK..": LET LOC=LOCfF 

GO TO C-P-P 
2500 IF BM"" THEN INPUT INK 5/ " 
WHAT DO YOU UP NT TO CROSS?"' LIN 
E B$: GO TO 2E00 

25*05 IF B$-: :* "RXUER" THEN PRINT " 
X H NOT THAT CLEVER, MATE!": GO 
TO C 
2507 IF LGC-:>31 AND LOG ■: > 32 THEN 

PRINT "SHOW HE A RIVER, AND I'L 
L TRY . " . GO TO C 

2510 IF 0(2) THEN PRINT "I'M GO! 
NG TO NEED SOMETHING TO HELP HE 
. " : GO TO C 

=£520 PRINT "OK..": LET LOC=LOC+ S 
LOC=31.1 - (LOC-=32J : GO TO C-P-P 
£608 IF B* = "" THEN INPUT INK 5; '" 
PLEASE CONTINUE YOUR COMMAND."' 
LINE B$: GO TO 2S00 

2S05 IF B$<>"DOOh"' THEM PRINT "T 
HAT COULD TAKE HE A WHILE.": GO 
! O C 

2610 IF LOC;j39 THEN PRINT "I OR 
M'T SEE A DOOR? ": GO TO C 
2520 IF DO THEM PfiINT "YOU FOOL, 

IT'S ALREADY UNLOCKED.'"; GO TO 



2525 IF 0(4.) THEN PRINT "YOU HRU 

E NO KEY , . . " : GO TO C 

2530 PRINT "OK,.": LET DO=P: GO 

TO C 

2700 IF B$<>*"DOG" THEN PRINT " I 

DON'T THINK IT ' S WORTH IT.": GO 

TO C 

2710IF LOC<>32 THEN PRINT "WHAT 

DOG.'" : GO Tu C 
2720 IF OlP) THEN PRINT "WHAT WX 
TH, YOUR FINGERS?": GO TO C 
2730 PRINT ' "THE DOG HAS FALLEN 
ASLEEP.": LET DOG=P: LET S =P : LE 
T 0(P)=LOC: LET OS=OS-P: GO TO C 
2800 IF O I'F) THEN PRINT "YOU HRU 
E NO MONEY.": OO TO C 
2S10 IF S$="" THEN INPUT INK 5; " 
ANYTHING IN PARTICULAR ?" * LINE B 
$: GO TO 2S10 

2320 IF B*="NO" THEN PRINT "WATC 
ft IT j MATE! I'LL LOSE MY PATI 
ENCE! " : GO TO C 



£330 IF B*O"0OS 3GNE" THEN PRIN 
T "WHY BOTHER XF IT'S FREE'?": GO 

TO C 
384-0 IF LOC<?6 THEN PRINT "THERE 

-5 NO- DOG BONE HERE.'': GO TO C 
£345 IF OB=4- THEN PRINT "I CAN'T 

CARRY ANY HOPE-", GO TO 
SS50 PRINT "OK,, 1 ': LET OfPJ=0: L 
ET OB=QB+P: GO TO C 

£900 IF LGC<>£0 THEN PRINT "I GR 
N-'T DO THAT YET-": GO TO C 
£910 IF O (4-i <>LOC THEN PRINT "TH 
ERE'S NOTHING THERE.": GO TO C 
£930 PRINT "I HPt'JE FO\JHC> R KEY." 

GO TO O 
3000 IF LOC<>25 THEN PRINT "DOWN 



WHERE*?" 









3010 IF Of 53 THEN PRINT "I'M NOT 
JUMPING, I'LL BREAK MV NECK \ " ■. 
GO TO C 

-3QS0 PRINT "OK,.": LET LOC=LOC-F 

: GO TO C-P-R 

3100 IF--,LOC<:»i3 THEN PRINT "I GR 

N ' T DO THAT YET _- " GO TO C 

3110 IF Of5,l THEN PRINT "HOU DIL- 
YOU GET ME DOWN IN THE FIRST P 

LACE?" : GO TO C 

3120 PRINT "OK. ,"• LET LOC=LOCfF 
GO TO C-P>-f^ 

3370 CLS : INPUT 'ARE YOU SURE - 

- Y'N. "; LINE R$ 

39S0 IF A$="Y" OR fi$="YES" THEN 

GO TO 9000 

3990 GO TO C 

3000 INPUT "DO YOU WANT ANOTHER 

GO? CYvN'3 '*; LINE AS 

3010 IF A*="Y" OR flft = "YE5" THEN 

PUN 900 

'=?0£0 IF A*= "N" OR A$="MO" THEN S 

TOR 

9030 GO TO 9OO0 

9500 LET 0=PI-PI: LET P=PI/PI 

3510 LET F=URL "?" : LET LOC=UAL 

'"54-"; LET OB=0 

9520 LET DO=0: LET DOG^O: LET C= 

URL "1000": DIM G$(9,3) : DIM OC9 

J 

3530 FOR Z=P TO INT iPI-fPI) : PER 

D 0*iZ),Y$: LET OtZ>=UAL Y$ 

354-0 NEXT Z 
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9550 DATA "DOG BONE '* , "S" , "PLANK : ' 
. "11" , "RING" i "14" , ,= KEY" , "20" , "RC 
PE" . "23" , "ROOK" , "23" , "WALLET" , "3 
0" J "BOOK" t "39" , "GUN" , "4-0" 
3500 RETURN 

This next program is the loader for THE 
CITY: 



10 REM Tht C-i ty 

2 o rem Rn r d v e n i u re e a a s 
SO REM 3y Me i I H-e i i i na c c i 1933 
4-0 REM IS* Spe c t rum 
50 REM 
BO REM 

70 BORDER 0: PAPER 0. INK 7: B 
RIGHT I 

30 CLEAR 327S7: CLS 

90 POKE 23609,100: POKE 2355S, 
3: POKE 23524,71 
95 GO SUB 200 
100 LOAD "" 

200 DIM fi$<3£.i : PAPER S: INK 0. 
LET R$=" STOP THE TRFE 

" ; LET L=9: GO SUB 900 
£10 PAUSE 100: PAPER 0. CLS 
220 LET A$ = " THE CI" 3 " 

Y"; LET L=3. INK B; GO Su"B 900 
23& LET A*="AN ADVENTURE FGfi TH 



i^ i.-. Ji-'it. ; rM-*J * 



UU w> 1-' ; 



900 

24-0 LET A $=" WRITTEN BY NEIL PEL 
LINRCCI 19S3": INK 5: LET L=S: 
GO SUB 900 

£50 LET R*=" PRE5S ANY KEY TO 

CONTINUE": INK 7: LET L=1S: GO 
SUB 900 

250 LET L.5B1: PAUSE 1: PAUSE 0: 
CLS 

355 FDA Z=-20 TO 30 STEP 5. BEE 
P .01>Z: BEEP , 01,Z/10: BEEP .01 
,Z-10. BEEP .01,Z+10: NEXT Z 

270 RESTORE 

230 READ A$. IF A$l'iJ="*" THEN 
RETURN 

290 IF flSflJ ="+" THEM PFtlHT AT 
21,0; INK S; " PRESS ANY KEY TO 

CONTINUE". RALiSE 1: PAUSE 0: CL 
S :■ SEEP , 4 , ; SEEP , 1 , 10 : BEEP 
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3,30: LET L=l. 
LET L=L+2 



GO 
GO 



-1/20; SEEP 
230 

300 GO SUB 900 
D 2SS 

4-00 DfiTfi " IN Trilz- HtUENTURE Gfi 
HE YOU MUST " 

4-10 DfiTfi "RECOVER SOME STOLEN M 
ONEY. THIS" 

420 DRTfi "HONEY XS < HOUEVER, ST 
OREO JN THE: 1 ' 

4-30 DRTfi "BfiNK VAULT . THE BfiNK 
IS OUWEi? BY" 

4-40 OfiTfi "THE GfiNGSTER WHO STOL. 
£ THIS " 

450 DfiTfi 

460 DRTfi 
THE BfiNK, " 

470 DfiTfi 
RCK . " 

4S0 DfiTfi 
T BE Efii-Y ", 

493 DRTfi "S3 VvL' i^ILL fiFPEfifi T>_' 

SE fi THi-fF" 

50G DfiTfi " + 



"HONEY- " 

" YOU HUST BREAK INTO 

"fiNO STEfiL THE HONEY 3 

"HOWEUER, THIS WILL NO 



510- DRTfi 

HRUE :: 
520 Df^TR 

, fiND 51?" 
530 DRTfi 

PTY. YOU " 
S40 DRTfi 
THAT THE" 
550 DfiTfi 

WRONG IDEA 
560 DfiTfi 

OUT YOUR" 
S70 DfiTfi 
580 DfiTfi 

TED THE" 
590 DfiTfi 

YOUR" 
D00 DfiTfi 
YOU fiWfiY, 
SIO DfiTfi 
S20 DfiTfi 

WISHES IN" 
530 DRTfi 

UERB5 AND" 
S40 DRTfi 

IS N" TO" 
650 DfiTfi 

OUTH , ETC- . 



to cotsBnr this , you 

"fiKftfiN-iSED fi Bt-JiB SCfiRE 

"THS L'lTv 13 NEfifi LY EM 

"MUST STILL BE CRREFUL 

"POL JOE D&H'T GET THE 

"THEY WILL NOT KNOW fit? 

"SECRET HISS ION- " 

" WHEN YOU HfiiJE COLLEU 



"HONEY, 
'' CONTACT , 

" TO PLRY 



OU /iOST FIND 
HE WILL TAKE 



ENTER YOUR 
' 'PL PIN ENGLISH^ USING 
"NOUNS. TfiE EXCEPTION 

"GO NORTH j -S-' TO GO 3 
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560 DRTfi " IP YOU WRNT TO STOP, 

; YPE " 

572 ErJBTfi ■'STOP' OR ~OL>IT'. ' Sfi 
u£ ■ WILL ' 

SS0 Dfii'H "SHU£ rHE CURRENT GRHE 

ON TRPE , " 

690 DfiTfi "SO THST YOU CRN FINIi 
H IT LPTER. 

7O0 L'fiTfi " *■** 

7*8 DfiTfi "" , •■","" , •■- t " S 

TART THE TAPE" 

720 DfiTfi "**• 

30O PAPER O. .INK /. ^.i"OF 

■500 FOR X=32 TO 1 STEP -1 : PRiN 
T AT L,0,fi$»Z TO J; NEXT 2: RETU 
RN 

Once you have that in place, you can enter 
and save THE CITY program itseLf: 



9 PRINT 
ION. THERE 

Ltnvu i ) Hl, 

" : RET URN 

IS PRINT ■ 
D ft BUTCHER' 
WILDING SITE 
E=P. LET S=P 
IS PRINT ' 
R FELL ON NE 

9000 

£1 PRINT ' 

NK . THE DOOR 
IGH STREET I 
E=P; LET DOl 

24 PRINT ' 
REET, WHICH 
FROM R TRXI - 
SOUTH. '■ : LET 
=P: RETURN 

27 PRINT ' 
LHR'JE SHL'P. 
* THERE IS fi 
LET N=P: LE 
E=P; RETURN 

GO PRINT ' 
SHALL , 

LfiRGE SHOP I 
W = P: RETURN 



"I AM IN fi TUBE ST FT 
Sfi TRAIN WRITING TO 
TfiXI WRITS OUTSIDE. 

' I AH STANDING BEHTfj 
S3HOP . I CRN SEE fi 3 
TO THE EAST.". LET 
RETURN 
"fi LfiRGE STEEL GIRDS 
.1 RN DEfiD."; GO TO 

"I fiM OUTSIDE THE Efi 
IS BEFORE ME. THE H 

STO THE ERST . " : LET 

=D: RETURN 

"I AM IN THE HIGH ST 
IS DESERTED , fiPfiRT 
fi MARKET IS TO THE 
E = P: LET U=P; LET 5 

"I PN STANDING IN R 
I CRN SEE NO PEOPLE 
CAFE TO THE EAST , ' : 

T S=P. LET U=P: LET 

'I fiM STANDING IN fi 

DESERTED CfiPE . THE 

STO THE WEST . " : LET 
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3S PRINT '"2 RM INSIDE THE BAN 
K . IT IS UERYOLilET . ",*: IF GU TH 
EM PRINT "I CRN SEE fi GUARD WITH 
HIS BACK TO ME . " ; 

37 PRINT : LET N = P: LET S=NOT 
GU. RETURN 

S3 PRINT '"1 AM IN fi STREET MR 
RKET. R POLICE STATION IS T 
THE ERST, AND R BUILDING SITE 
TO THE SOUTH. " 

4-0 LET N=P ; LET S=P * LET E=P 
RETURN 

4.* PRINT ' "I HRUE ARRIUED AT T 
HE POLICE 5TATIUN. IT IS NOT 
DESERTED. . . " 

43 IF NOT 0*7> THEN PRINT "fi ¥> 
OL ICEMAN SEES THE HONEY RHD RPR 
EST5 ME-" 1 : GO TO 9000 

4-4- PRINT "fi POLICEMAN TRKES UH 
AT I HAUE COLLECTED AND RETURN 
3 THEM TO WHERE X FOUND THEM , " 

LET N=P: LET W-=P : GO TO 700 

4-5 PRINT '"2 AM IN fi SHALL GLO 

DHY TUBE STATION. THERE IS A 

HOLE IN THE WALL TO TriE SOUTH, * 

LET S=P. RETURN 

4-S PRINT '"I AH STANDING IN FR 
ONT OF THE UAULT DOOR , UHICH I 
S LOCKED-" 

4-9 IF UC THEN PRINT "THERE IS 
R HOLt IN IT. ' 

SS LET E=P: LET S^vC: RETURN 

51 PRINT "1 CAN SEE TWO DOORS 
, ONE TO THE WEST, ONE TO THE SO 
UTH . THE URULT ENTRRNCE IS T 
THE NORTH.**: LET N = P: LET S =P : 
LET U=P: RETURN 

54- PRINT ' '* I AH ON R BUILDING 
SITE, WHICH IS SURROUNDED BY HX 
GH URLLS.": LET N = P: RETURN 

57 PRINT '"I'M NOW STANDING IK* 
THE FOYER OFA LARGE HOTEL. BEFO 
RE HE IS THE RECEPTION DESK.": L 
ET E=P: RETURN 

60 PRINT '"I AH IN THE BASEMEN 
T OF fi LARGE BUILDING-": LET N =P 

LET U=P; RETURN 

S3 PRINT ' " I AM INSIDE THE URU 
LT. TO REACH THE HONEY, I HRUE T 
O ENTER THE KEY PANEL CODE . THER 
E RRE 9 BUTTONS IN FRONT OF 
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HE- X MUST PRESS THE RIGHT ONE 

64- LET N=P; RETL'PN 

65 PRINT ' "A WALL HAS APPEARED 

BEHIND HE. I AH TRAPPED.": GO 
TO 9000 

7S PRINT ""I AH INSIDE THE MAX 
H URULT ROOM.": LET N = P: RETURN 

60S IF fi${R;s=" *• THEN LET A4=RS 
£3 TO ) : GO TO S0S 

510 IF R$(LEN P.%} ~" M THEN LET 
H*=fi$ ( TO LEN fi$-p> ; GO TO 610 

520 LET B$=* ' '" : FOR Z=P TO LEN A 

%l IF A$iZ>= THEN LET B$ = fit(I 

*P TO > : LET fi*p=fi$i TO I-P) ■ RET 
URN 

530 NEXT Z; RETURN 

700 RESTORE SS0S. FOR Z=P TO 7. 

RERD P$,E$: IF 0(Z)=0 THEN LET 
O tZ) =UAL B$ 

710 NEXT Z: LET OS=0: RETURN 
,800 PRINT '"EXITS: ", ("NORTH " 
h,ND NJ ; ("SOUTH " RND 5> ; f'ERST " 

hND E) ; ("UEST" AND U) 

310 PRINT "I CRN SEE.," 

SS0 LET FL=Oi FGR Z=P TO 7 : IF 
(2) =LOC THEN PRINT "A , *;0*£Z): 
LET FL=P 

83® NEXT 7; IF NOT FL THEN PR IN 
T "NOTHING INTERESTING. " 

■340 RETURN 

900 GO SUB 8BSS : CLS 

999 LET N=D: LET S=D: LET E =0 : 
LET U=0 . GO SUB LOCfS: GO SUB S3 
& 

1000 INPUT INK 5; "UHfiT SHRLL I D 
O NOW?"-" LINE Rfgi IF R£="" THEN 
GO TO C 

1310 if loc=12 and rnd > . 9 and gu 

then print '"the guard turned, 

-^ru me , then shot he . i rm depd 

. " : GO TO 9000 

1050 GO SUB 600: PRINT ' INK Si R 

1060 IF R$='*N" RND N THEN LET LO 

C=LGC-F: GO TO Q -P 

1070 IF fi$="S" RND 5 THEN LET LO 

C=LOC+F: GO TO C -P 

10S0 IF fi$="E" AND E THEN LET LO 

C=LOCtP: GO TO C -P 

1390 IF A$="W" AND W THEN LET LO 

C=LOC-P: GO TO C-F 
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i£ ® X ? **= * Q« fi*="S" OR R$ = 
E ^° R H$="U" THEN PRINT "I CRN T" 
GD IN THRT DIRECTION.": GO TO C 
1110 IF R|='GET" OR fi$="TRKE" TH 
EN GO TO 2SS© 
1120 IF R$="DROP" OR R$ = "PUT'" TH 

en go to aiee 

1130 IF R$="I" THEN GO TO E200 

114-0 IF fi$="LGGK" THEN OLS ■ GO 

TO C-f 

list? IF fi$="HELP" THEN GO TO 833 



11S0 IF fl$="BORRD" OR RS="CflTCW' 

THEN GO TO 24.02? 
£17© IF fi$= "UNLOCK" THEN GO TO 2 

:~, 

1130 IF R*="OPEN" THEN GO TO 250 

1190 IF R$="D" THEN GO TO 2700 

120O IF fi*='QUIT" OR fl$="5TOP" T 

hen go to esse 

1210 IF R$="RERD" OR R$="EXRMIN£ 

" THEN GO TO 2B00 

i2^0 IF R$ = '*KILL- THEN GO TO 29-3 



1230 IF R$="CUT' THEN GO TO 3003 

124-0 IF R$ = "PRESS" OR fl$="PUSH" 

THEN GO TO 3IBS 

ia50 IF R$="SfiUE" THEN SRUE "CUT 

V" LINE 239: PRINT "VERIFY**.". 

UERIFV "": GO TO C 

1260 IF R$="SRY" THEN GO TO 3203 

1-300 PRINT "I DON'T UNDERSTAND,- 

GO TO C 
2000 IF B$="" THEN INPUT INK 5; " 
SET UHRT ??" * LINE B$: GO TO 2B2 



2002 IF LEN B$>13 THEN PRINT " I 

CRN'T": GO TO C 

S00O IF OB =3 THEN PRINT "I CRN ' T 

CRRRY RNY MORE » " : GO TO C 
2010 FOR Z=P TO 7: IF OSiZ) ( TO 
L£N B$J =B$ RND OtZ}=LQC THEN LET 

U(Z)-0; LET OS^OBri: PRINT "OK. 
. "' : GO TO C 

i:020 NEXT Z: PRINT "I SEE NO " ; B 
S; " ! " . GO TO D 

2100 IF B$ = — ' THEN PRINT RS; " IJH 
RT?": GO TO C 

25.10 IF LEN B$M3 THEN PRINT "I 
CHN ■ T « " ; GO TO C 
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3120 FOR Z=P TO 7: IF 0$ (Z> I TO 
LEN B$> =B$ THEN PRINT "OK..": LiE 
T OtZ:'=LOC: LET OB=QB-l: GO TO C 
£130 NEXT Z: PftiNT " I HRUE NO "' J 
3$; "1" : GO TO C 

2200 PRINT "I HRUE THE FOLLOWING 
«.": LET FL = D: FOR Z = P TO ~? : IF 
O rZJ =0 THEN PRINT "R ":0*(Z): LE 
T FL=P 

S210 NEXT Z: IF NOT FL THEN PRIN 
T ■'NOTHING." 
2220 GO TO C 

230© IF LOC=:17 THEN PRINT "R5K T* 
HE VILLAGE PEOPLE.": GO TO C 
2310 PRINT "FOLLOW THE OLD LONDO 
N - BRISTOL RORD i " : GO TO C 
24-00 IF BJ = "" THEN PRINT R*J" UK 
RT 7" : GO TO C 

24-10 IF B$< ; "TRRIN" RND B£ < > "TRX 
I" THEN PRINT "I CfiN'T.": GO TO 



2420 IF B$ = "TRfiIN" RND LOG < J- -3 R,N 

D LOCi;15 THEN GO TO 2420 

2*30 IF B$="TRXI" RND LOG ( ^3 RND 

L0CO6 THEN GO TO 24-90 
^44.0 IF E$="TRRIH" THEN GO TO 24- 
7 

£4-50 IF O LSI THEN PRINT "I HRUE 
NO MONEY FOR THE FRRE . " : GO TO C 
24-60 PRINT "THE TRXI DRIVES OFF 



UITH ME 



-i.r-i^ .:_:->=. . 



LET LCC=LO 



C+<F RND LOC=3i-(F fiND LOC=8) : G 

O TO C-P 

24-70 IF 0(3; THEN PRINT "I NEED 

R TICKET? i ": GO TO C 

£430 PRINT " I GET IN RND THE TRR 

IN MOVES RWfiY . " -. LET LOC=(3 R 

ND LOCsJ.5) +(15 RND LOC = 3>: GO TO 

C-P 
24-9© PRINT "I CRN'T DO THRT YET - 
: * : GO TO C 

2500 IF B$ = " THEN PRINT "WHRT S 
MRLL I UNLOCK?" j GO TO O 
2510 IF 5$<> "DOOR" THEN PRINT " I 

CRN'T DO THRT.": GO TO C 
2520 IF LOC<:7 THEN PRINT "UHRT 
DOOR?": GO TO C 

2530 IF DO THEN PRINT "YOU IDIOT 
, IT'S RLREPDY UNLOCKED 1 

i " : GO TO C 

SE-4-^ IF 0(E) THEN PRINT "I NEED 
THE KEY. " : GO TO C 
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2550 
TO C- 

2600 
HRT? 
S61B 
CAN 
2620 



PRINT "OK 



LET DO=P 



GO 



" OPEN U 



IT ' 6 



IF B$ = "" THEN PRINT 

GO TO C 
IF B*<>"DOOR" THEN PRINT *' 
T . " : GO TO C 

IF LOC<;7 THEN PRINT "I Cfi; 
SEE A DOOR!"; GO TO C 
2630 IF NOT DO THEN PRINT 
LOCKED-": GO TO C 

264-0 LET D01=P. PRINT "OK.. 

SEE SOME STRIPS GOING 
: GO TO C 

IF LOG i >T THEN GO TO 2430 
IF NOT DG1 THEN PRINT "THE! 
DOOR IN THE WRY ! " : GO TO : 



CRN 
OWN . 
27S0 
2710 
E'S 
2 720 
. GO 
2600 

R*> ; 



28 10 
CRN 

2S20 



PRINT ' 

TO C-P 

IF 6$ = 

' UHRT?' 



OK-.": LET LOC=LOCt! 

" THEN INPUT INK 5; 
' LINE B$: GO TO 2Bi 



IF B$ < ; "CLUE' 
T DO THfiTi >': 
IF O (6) THEN 



THEN PRINT "I 
GO TO C 
PRINT "I'M NOT 

CARRYING fl CLUE.": GO TO C 
2S30 PRINT "THE: CLUE IS WRITTEN 
ON R4 -SIZED PAPER. IT SAYS: 'RU5 

A DUB DUB . . . ' " ; GO TO C 
2900 IF B$="" THEN PRINT "KILL U 
HAT7": GO TO C 

2910 IF B$<>"GURRD" THEN PRINT ' 
X REFUSE ON MORAL GROUNDS.": GO 
TO C 

2920 IF LOCo 12 THEN PRINT "I CR 
N'T SEE R GUARD!": GO TO C 
2930 IF O(P) THEN PRINT "I HAUE 
NO WEAPON . " : GO TO C 

2^40 PRINT "OK..": LET GU=D: GO 
TO C 

3000 IF B$ = "" THEN INPUT INK 5; 
UHRT SHALL I CUT?" ' LINE B*: GO 
TO 3000 

3010 IF 6tO"yPULT DOOR" THEN PR 
TNT "I CRN'T DO THfiT.": GO TO C 
3020 IF LOC<M6 THEN PRINT "I SE 
E NO URULT DOORS HERE!": GO TO C 
3&3Q IF 0(4-3 THEN PRINT "I HA<JE 



NOTHING TO CUT IT U1TH 



GO TO 



334-0 PRINT "OK, 
TO C-P 



LET UC=P: GO 
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3100 IF LOCwcl THEN PRINT "THER 
E'S NOTHING HERE TO ",;A$;"!": GO 

TO C 
3110 IF LEN B$<>P THEN PRINT "I 
NEED A NUMBER BETWEEN 1 RND 9.": 

GO TO C 
3120 IF B$<:"1" OR £s>"3" THEN PR 
INT "THAT'S NOT R NUMBER::": GO 

3130 LET Z=URL Bg: IF Z<>3 THEN 
LET L0C=LOC+P. GO TO C-P 
314.0 LET LOC-LGC-rF: PRINT "THE I 
RON DOOR SLIDES BACK SLOUL 

V . . . " ; GO TO C-P 

3200 IF B$=*" THEN PRINT "SRY WH 
AT?" : GO TO C 

3210 IF B$ ( i "PASSWORD" THEN PRIN 
T "I CRN'T SRY THAT 5 " : GO TO C 
3220 IF LOC=15 AND NOT 0<?) THEN 
f-'RINT *•*>! HAVE FOUND THE CGNTR 
CTj AND HRUE SUCCESSFULLY COMP 
LETED MY MISSION. THE CONTACT U 
AS THE TRAIN DRIVER.' 1 : GO TO 

M000 

3225 IF LOO =3 OR LGC=6 THEN PR IN 

~r "THE TRXI DRIUER SRYS SGMETHII-i 

G UERY RUDE TO ME.": GO TO C 

3230 PRINT ' "?JOBO«V RP PEARS TO W 

ANT TO KNOW."; GO TO C 

3000 LET 0=P I -PI: LET P=NOT O 

3010 LET PsURU "5" : LET LOC=URL 

" 13" 

3020 LET 0B=O. LET LiQ=0: LET GU = 

P LET UG = 0. LET C = UAL "1000" 

3030 DIM Dl?) : DIM D$C7,13> 

©04-0 RESTORE 6&3S; FOR Z=P TO 7: 

READ 0$<Z>,A$: LET O (Z) =URL A$: 

NEXT Z 
8050 DATA "KNIFE" . "4", "WALLET" , " 
9" , "TUBE TICKET" 4 "IS", "BLOWTORCH 
.-. ^ " 16 .. t -KEY" .. "12" . "WRITTEN CLUE'' 
, "20" , "CASE OF MONEY".. "26" 
SOS© PRINT 'TAB II: INK S; "THE 

CITY ' WRITTEN BY NEIL PELL IN 

RCCI" ' '" PRESS ANY KEY TO 5TR 

RT" 

3070 PfiUSE P : PAUSE O: FOR Z=50 

TO -20 STEP -5: BEEP . 1 ., Z : BEEP 

.0LZ-3: BEEP .01,2+6: NEXT Z 
6060 RETURN 
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S9S© 1 M PUT "« R£ VOU SURE? 

Y,'N": LINE 3$: IF R$= ; ' 

THEN GO TO 6SS0 
B91S IF R$iP)="V" THEN GO TO 903 


8950 GO TO C 

3000 INPUT "DC YOU WPNT TO PLAY 
RGfllW? Y.'N", LINE R£; IF flSr-" 1 

THEN GO TO 3000 
S010 IF Rt(PJ="N" THEN STOP 
3020 RUN 900 
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Doors of Doom 



This is a masterpiece program by Malcolm 
Young which will weLL reward the time it 
wi LI take you to type the who Le thing in. 

This graphic Adventure is based eround the 

maze routine at lines 1000 to 1400. The 

routine starting at Line 2000 handles the 
graphics. 

When Malcolm started writing the program, 
he had intended it to be simply a 3D Maze 
program. However, once he had that up and 
running he decided he couLd make it a Lot 
more interesting and the result is here 
for you to see. Full instructions ere 
incLuded. A word of warning: The program 
generates mazes which are extremely 
challenging, and difficult to solve. Do 
not run this program if you want a game 
you can master in an hour or so, 

2 REM ©1983 liaicol» Young 
I© E>EF FN r tSSi =INT (RNDfX.1 +1 

30 GO SUB S000- REM i n =■ t rue t i c 



40 EDRP-ER A 



P&PER 5: 



INK : 



. ;> 



50 GO &tfB 1SS0; REM vSflerste IB 
" &0 GO 5US S00O : REH ini tiatiiE 

v a r i a fa I e s. 

70 GO TO 230 
SO NEXT 3 

30 REM main driving routine 
100 LET K*=IWKEY$: IF X$=" " OR 
K$="a" THEN GO TO 100 

110 LET f = f + lK$="r" 3 ~ (K* = " t ") +2 
£■ I X $ = " b l * > 
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120 LET f = f+4* ( f <1) -4* ( f >43 
133 IF X*="m" THEN GO SUB 50B0 
135 IF K$="f" THEN LET i»$(py,p.>i 

= "* - LET I (113 = 1 (11J -I (13) - X 

I (11 J <0 THEN GO TO 500 
14.B LET pX=pX-K(R* = "f") * 
f =4.} 3 3 

15© LET py =py + ( (K$ = " f "J * ( ( f =3) - 
f =1) ) 3 

155 XF K$tpy,pxJ="»" THEN 
= 1 : LET p.X =JEO< - J f =2> -h I f =43 : 
y=pu- ( f =33 * f f =1J 

PX) =CHR$ IPS 



( f f =23 - 



LET S 
LET 

THEN 



160 IF fe$ (py 
SO SUE 6000 
170 IF Kjfpy/px) 
3S00 
IT'S IF gl=py AND 

ro Ess 

1S0 XF ** = " 
LET *$="f". 

ise if *$ = - 

20© XF I (73 
SUB 7200 

210 IF I 
M*B £>500 

220 Xr fc$="s" THEN 

j want to save this 
a*, if a$="y" THEN 

CL5 

230 Ci_S 

24.0 print no; 

RND F=l; "EfiST 
RND f =3; "UEST" 
3; " "; flash i; 

FLfiSH ©;TAB 15; 

250 BEEP .1,10; 

260 IF INKEY*=" 
H LET X * = "/■"; GO 

270 IF SH THEN PRINT 
FLASH l; "SOLID UflLL " ; 
LET S td =KOT SW 

230 GO TO 100 

500 pen end of ga»e 

sie cls 

520 PRINT RT 10,0; "YOU 
rved to death*..." 

S3© PRINT '"Your bones 
r,e saze with those of asny other 



" . " THEN GO TO 
g2=p.X THEN GO 

e" TH^N LET re=l~rG: 

GO TO 14-© 
M" THEN GO SUE 7000 

RND fc*="d" THEN GO 

(33 RND K*="t" THEN GO 

zwFtrr "G-s ftjwaf 
game?**; LINE 
GO SUB 7500- 



INUERSE 1; "NORTH' - 

AND / =2 ,: ' ■ SDLITH * ' 
RND f=4; INVERSE 
REPEAT" RND re; 
Energy="; I (113 
GO SUB 2000 

RND ire*r 3 THE 
TO 135 

RT 10,11; 
BEEP 1,-38 



have stc 
litter t 



S4.S GO TO 463S 
500 REM finish 
BOS PAPER 0; INK 
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WL* w ' 



610 GO SUB 5160: PRINT AT 4,0; 

620 FOR i =4-0 TO 4-5 STEP .5: SEE 
P .25. a: PRINT "Ue i I done.' YOU K 
idfi it.""; NEXT i 

625 FLASH 1 

630 PRINT INK 6; "YOU accomplish 
£a the tasK With" 

&35 INK 4 

640 IF l(103. i >200 THEN PRINT "a 

great amount of skill." 

550 XF l(10)<200 RND 1(103.^100 

THEN PRINT "well deserved merit" 

S55 IF 1(10) <100 THEN PRINT "3 

considerable- amount of mcJi" 

660 GO TO 46*2 

100O rem Maze Generator 

1002 PAPER 0; INK 5: CLS : PRINT 

"The jEiaze can take a considerate 
Letime to construct so it is 
advisable to have the larger 
iw azes stored on cassette." 
1O04 PRINT ''"Please enter the d 
iisensions of your maze so that 
it has a wi d th he t ween 30 AND 100 
and a length between 20 AND 10O 



i'»06 IMPL<T 
oTORE a gam 
ME a $ 
13BS IF a$= 

RETURN 
XS10 INPUT 
" : W .- LET m = 

w>50 THEN 
1020 INPUT 
: "; I : LET L 
R I >50 THEN 
1030 LET S = 
T (5+S/10J 

1032 LET £= 
t =INT rs/60 
0- LET t=t + 

1033 POKE 2 
POKE 23672 

1035 PRINT 
uiait c»t lea 
. " ainutes" 



"Uss^sld «>*y 4st-i tc A£ 
eanswer (y/rrJ? .* " ; LI 

" y " THEN GO SUB 7S00 : 

"Enter Uidth of Maze. 
Jt-iT f\ti.sS) ; XF lt> <15 OR 
GO TD 1010 

"Enter Length of Maze 
= INT (1.^2): IF U10 

GO TO 1020 
INT tWSl/3i . LET £ -Xt-i 

DIM I (S.1 ; DIM d (S3 
S+INT (RND*S/3.l ; LET 
.1 : LET tl= (S -t *603 .'10 
tl 

3674,0; POKE 23673,0. 
.0 

'''"Please expect to 
st approximately ";t 



104-0 let m=w*2 + i 
IN a 4 cn,j») 



LET n =1*2+1 



79 



T 



050 FOR i =1 TO l» : LET B$(l / i)=" 
" . LET ntfn.i) ="U" i NEXT i 

sea for i =a to n-i. let m $ r i , a * 
" » - : let m $ a t m ;■="»" . next i 

S70 LET nn =2JINT fRNI>* i I -23 3 +3 

3Sl3 LET ffiffl=2*INT t"RNE> * C W -2 J J +3 

093 LET »$[nn,Bl»}="8": LET R =0 

103 IF »$ (nn -2 ,HJffi3 =" 

O 1210 

lie IF hi $ (nn +2 yffiBi J •=" 

O 123.0 

b$ fnn ,hjj»-23 =" 



123 IF 
O 1210 
130 IF 
O 1210 
14-0 IF 
150 IF 



ffl$ inn , Ibfif+23 =' 



THEN GO 

THEN GO 

THEN GO 

THEN GO 



K-1=0 THEN GO TO 14-20 
d(R.l=l THEN LET nn=/7n + lf 



1160 IF d(K3=2 THEN LET nn=nn-t 



ii 



'0 IF d(K>=3 THEN LET S>&=X0» + lV 



1 150 IF d f K ) =4. THEN LET mif. =iftjft - I * 



1190 


LET X =K -1 




1200 


GO TO 1100 




1210 


LET ll=2*IMT {RN£**3>. *2 


1220 


IF tl=8 THEN GO TO 


1210 


1230 


LET dI=INT CRND*4) -J 


1 


124.0 


IF dl>2 THEN GO TO 


1250 


iass 


LET £=-l+2j(dl=2) 




1260 


LET t = 




127B 


GO TD 1300 




J. 2 3 


LET S =0 




1290 


LET t=-l+2*(dl=4-) 




1300 


FOR i =2 TO I 1 STEP 


2 


1310 


IF m$ mn +s *i ..mm +t *i 


) ="& 


EH GO TO 1210 




1320 


NEXT a 




I 330 


FOR i =1 TO I 1 




1 34-0 


let m $ (nn +s *j ,n>m +t *i i =- 


1350 


NEXT i 




1363 


LET nn=nn+s*ll 




1379 


LET Hi m =m B + t*ti 




1330 


LET k=k+l 




1390 


LET t r*t.i =11 




14-0© 


LET d(F,)=dl 




14-10 


GO TO 1100 




14.20 


REN no. of doors 





TH 



= "*.' 
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14-25 LET nd=INT t I f4i *l i'5.l /25) • 

let st=rjd/ll 

14-30 LET i f*J =J» : LET L l"53 =n 

14-35 REM hide Objects 

14-40 FOR 0=i TO 4- 

14-50 FOR i =2 TO St 

1450 LET I =F.M jr H ifS.l -3.1 +1 . LET £ 

=FN r (l (4)-3) +1.- LET Kn =FN f (5.1 * 

10 +0 

14-70 XF Hi$(l,C3 <>"»*' THEN GO TO 

145S LET m$(l,C)=CHR$ (4S+Kn) 

14,90 NEXT i 

1 500 NEXT O 

1513 RE M hide food and vi iLsi/it 

1523 FOR O =5 TO 7 STEP 2 

1530 FOR i =1 TO S t *3 

1540 LET L=FN r f I C53 -33 *i: LET C 

= FN r (I *4-3 -33 +1. LET Kn=FN t I 53 S 

10+O 

1550 IF B$f[,tJ <>"»" THEN GO TO 

1540 

X5&S LET Bi$ E I , c3 =CHR$ (4-S+XnJ 

157© NEXT i : NEXT O 

I5S0 REM hide treasure 

1530 FOR i =1 TO it*4 

1&00 LET UFN r (I (5.1 -3> +1. LET C 

=FN T ( L (4- J -3 3 +1: LET Kn=FN f i5i S 

1& + S 

1513 IF m$(l,C.l <>"«" THEN GO TO 

1520 LET m$ C L , C3 =CHR$ (4-5+>:n3 

1530 NEXT i 

154-0 LET JS$ ft 1 5) .'2, t t"4-3 /2.1 =CHFt$ 

(4BtFN r C53 #10 + 53 

1553 REM hide Keys 

1550 FDR i =1 TO 4-SSt 

1570 LET L =FN r ft C53 -4-3 +2: LET C 

=FN rfl {4-3 -4-3 +2 

1SS0 IF Ji $ f L , C J < .> " " THEN GO TO 

1570 

1590 LET i»$ f L , C3 =CHR$ 125 

1700 NEXT i 

17@S LET set=l 

1710 LET tisne=<PEEK 23572 +256 iPE 

EK 23573+55536 *PEEK 23574-3 

1720 LET t i me =t i Kf»e^50: BEEP 2 , 10 
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173© INPUT "This maze too* "; (ti 
aie ) ; " seconds to generate, would 

you Like to save it for future 
vse*?" ; a$ 

174-3 IF a$fl)="y" THEN GO SUB 75 
30 

1750 CLS : RETURN 
sees rem display view 

2010 BORDER 1: PAPER 0; BRIGHT 1 
a@20 LET X =24.; LET y =16 : REM wa L 

i angle gradiant 

5030 FOR i =1 TO 6 

204-0 LET ly =py + V ( f =3} - I f =i.O *i 

2S50 LET Lx =PX + ( ( f =2) - ( f =4-1 J *i 

2S6S IF »$(ly , ix) <"«" OR m*fty.. I 

X) =CHfi$ 12S THEN NEXT i 
2055 LET d t = l'»* f ly j. IX'3 =" " .1 
2070 LET Wta = i-l-ti>6J : REM Kiaxiis 
us viewing distance 

2375 IF NOT VW AND JB $ t I y ., IX i > " » " 

THEN GO SUB 2500 
2083 LET WX=VW*X; LET my=VW*y 
2090 FDR d=0 TO VW: REM dividing 

^•ane is 
2100 LET h=255-d*X*2 

2110 PLOT d*X,d*y; DRRU ©,175-ty 
5dJ *2.- IF d=VW THEN DRflU h,0 
2115 PLOT d*X +1 ,d*y : DRAW 0, 175- 

[y*dJ *2 

2120 PLOT 2S5-d*X ,175-d*y . DRRU 

0, - l"175-y *2*d> : DRAW -h , 

2125 PLOT 254-d *X , 175-d *y . DRAW 

S - (175-y *2*d 1 

a 130 NEXT d 

2140 FOR i =0 TO VW-1: REM draw « 

3 I LS 

2150 LET Ly=py-J- ( t /=3> - i f =1A > * ii * 

2160 LET IX =PX + t l t* =2) - V f =4- J J * li + 

1** 

2170 LET d$=ffl* ( ly- ( f =23 + ( f =4-3 , lx 

- C f =li + ( f =3> J 

2175 LET L»aU = id$ = "»") : LET idf 

= Cd$J '»") 

2150 LET d*=ffi$ f ly + f/=2J - if =4.1 , tX 

-i- £ F =1? - ( f =3) ) 

2190 LET rwsl I = id* = "»".i . LET r&r 

= cd$> "a-j 

S155 IF (Idr+rdr? THEN GO SUB 23 
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il97 GO TO ldr#7+2200 

2i>00 PLOT i *X , i *y +y *MOT I W a I t : O 

I5FWJ x , y * dual li 

3205 PLOT i *X j, 175- ii #y +y*NOT l»S 

ill: DRflU x,-(y*laaU) 

2207 GO TO fdr*aaf22I0 

2210 PLOT 255 -i *X , i »U+U*NGT rwst 
L : drru -x,yKrwaiu 

2220 PLOT 255-i *X y 175- f i *y +y *NOT 

rwaU.i : DRRU -x , - ( y * r w a i l .» 

2230 NEXT i 

2240 INK 5: LET p =5 

2250 LET V =255/p ; LET e=(255-2*W 
x>.-P 

2260 FOR t = I TO p-1 

2270 LET h- (WX +6*1 > -V* I 

2260 PLOT V*l,0,- DRRU h,By 

2330 NEXT i 

2310 IF dt THEN PRINT FLR5H 1; D 

uer i;rt 10,, is; "5E";RT ii,15;"£E 

2320 IF NOT r e THE}^ RETURN 

23SS LET r=l 

2330 REM check for repeat 

234.0 FOR i =0 TO 1 

2350 let ry =py+ ( C F=3) -(/=!>) *i .- 

LET rx =px + f ( f =2) - C f =4-.* .* *i 

2360 LET r=r# Uft$ Cry * ( f =2> - V f =4-.\ f 

r x + l t =3.1 - C f = 1 .1 .1 = '* tt " 1 

237© LET r =r * *m* try- ( f =2X + f f =4-i , 

rx - t f =3-i + ( f =i j .i = ,, a , M 

2360 KE.KT i : RETURN 

2390 REM draw door 

2*00 LET X=l..* ii *•!.> 3-5 

24-10 FOR j=l TO 7 

24-20 IF Idf THEN PLOT i *X + J S3 ., i * 

tj -t- j*2 

24-25 IF Ldr THEN DRRU IMK 6.:£*,.JI7 

s- t i *y -Kj *2) #2 

24-30 IF rdr THEN PLOT 255-(i*X+j 

* 3 ) , i *'4 + j *2 

244-0 IF rdr THEN DRRU INK 5;0 J ,17 

5- I i *y + J *2) *2 

2*5© NEXT j 

2450 RETURN 

2430 PLOT 100,100 + X: DRAW (5 t © > -F 

1*1,75 

243© DRRU K/2,5,-K*1.5: DRRU -£.* 

2.5*2-#;,0,-PIr DRRU K/2-5,K*1.5 

2491 RETURN 
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CLS 

Boo 



R" 



3000 

l; ; "£>or 



25-^ffi REM d^iVF 

551B PRPER 6; INK S; 

3523 PRINT RT 19,4;" 

SEEP .5.10 

253© PRPER : INK 5 

35i0 RETURN 

2t?0© REM enter 

3610 IF L (133 THEN GO TO 

56£0 PRINT fiT 2,4-; FLASH 

rM.no Key-no entry!" 

5630 LET px=p.X- (f =2.1 + f f =4-.l : LET 

py=pg-lf=3.l + (/=!.* 

564-0 BEEP 1,-2©: GO TO 100 

-700 REM found centre 

2710 IF py f >INT f L i'S.i ,'2.i RND p:< * 

>INT ( I UJ /2.1 THEN RETURN 

27*20 CLS : RESTORE 2900 

2730 PRINT "The door creet;s s- lots 

L y open ..." 

5 74.0 FOR i =-3© TO -20 STEP -5: & 



NEXT i 
i =1 TO FN 



'find there 
rcoie Lies 

TAB 2; t $; 
"find now 
"bacK to 



SEP . i,i 
5750 FOR 
NEXT i 
3760 PRINT 
ere Of the 
t e goal... 

2770 PRINT 

ute this 

y a t e d " 

2 775 LET ffi $ Ipy ,pX) = " 

3780 LET gl=FN r ( I IS) 

N f fl (4JJ 

£755 LET a$(91,g2)=" 

2790 GO SUB 5500 

2610 LET b=FN r (100) : 

1 fill + b 

2S20 PFtXHT '"You have 



r(8.t 



READ t $ 



in the cei 
the U L t i m ■ 



you have 
an ex i t s- 



tc 
i t 



LET y2=r 



LET I (11 J = 



also 



a vitamin 
sne r gu by ";b 
234-0 BORDER 
2550 PBU6E 
^S60 GO TO 230 
2900 DATA "a slave 
ticket to Timbuktu 
c house cleaner"," 
y teai» beating the 



Pitt boos ting 



f o u n d 

your 



PRPER 0: INK 5 



for life", "a 
"/'an aulossati 
the lions rugb 

MZ ALL BLACK6 



the answer to u fe...4-2?" 
2910 DATA "a free 2X63,4,5,6 
; "an eternal supply of lager' 
2 million mars hars" 
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3000 REM Op 
3010 LET J= 
T I n = INT ( J 
3020 PRINT 
o r has lock 

3©25 IF I (9 
e I e t o n Keys 
PAUSE 100. 
3030 IF 1(1 
21,0; INK 5 
t . Keep ao i n 
3040 PRINT 

s ? Do you w 
doo r ? f y sft J 



3050 


IF INK 


30 




3060 


IF INK 


©50 




3065 


GO SUB 


3070 


LET fa 


PRPER 6: I 


3073 


ZF fat 


3S75 


PRINT 


BEEP . 5, 


3050 


GO TO 


3090 


REM e H 


3100 


PRINT 


^> .. ,; ' 


"Some h 



en door 

CODE F6$ ipy,PS) -4S; LE 

• 10 J 

RT 0,3; INK 6; "The do 

n © . " ; I n 
J THEN PRINT "Your s R 

opens the do or J". 

GO TO 3070 
2) i>ln THEN PRINT AT 
; "Your key doesn't f i 
9": GO TO 2630 
RT 20/0; "Your hey f'a-% 
ant to un LO cK this 
": BEEP 1,10 
EY$="n" THEN GO TO 2& 



EY$<:>"y" THEN GO TO 3 
BORDER 4- 



2700 
t e =J - In *1© 
NK 1: CLS 

e=8 THEN GO TO 2700 
"INSIDE, there is 

3: BEEP 1 , 10 
fate 3200+3090 

pty 

RT 3 J ^ J "NOTHING.' " ; RT 

as been here be/ore 



110 GO TO tRND> .S> #30+3120 

120 rem lose Key 

130 PRINT ' "Your Key is s t u c K * 
the locS! "'"Do y o u want to spe 
d. some time trying to get it z- 
* *?-• 

14.0 PAUSE 0: IF IWKEV"$ ■'. > "y " THE 

DO TO 3200 
150 IF L (5.1 THEN PRINT "OK , i t S 
ouldn't taKe a second using y 
ur laser."- let l (5) = l (63 -l ■ LE 

i =1 : GO TO 3190 

160 print "OKjl'll wait a roomer, 
uihi le you t ry . " 

170 PRUSE 70; FOR j =0 TO 10+FN 
£50). BEEP .01.RND*30-15: NEXT 



3 180 IF RNro . 7 THEN LET ltl3)=li 
13> -1: PRINT "It won't come out,, 
you'll have to leave it.": GO TO 
3190 
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31B5 PRINT "YOU got it! '""but **i 

319© PRINT "You wasted "; i; " ene 
ray units in your attempt.": L 

ST L (ll)=l fll.i-i 

32G»0 GO TO 4-9O0 

3290 REH Laser 

3300 LET U =FN r tS3 +2; PRINT RT 3 

,Sjq$fl) "With enough E'JERVREflDY 

batteriesto last ";u;" uses! " 
3310 IP L f6.» THEN PRINT AT 3,0;' 

.Rno tber '* 

3315 PRINT TAB 12, " ft%%^T' TR6 

332© PRINT RT 9.0; "fi laser has 3 
h 'EC factor of 9 Do yots f*si}t \ 
Q t aKe i t7" - ' 
3330 IP INKEY4="n" THEN GO TO AS 



b 



335 

30 

34-0 IP 

(13) +3 

350 IP 



IP INKEY*-f 



THEN GO TO 3 



LET I il-3) * 



NOT t (Si THEN 

GO TO 3350 
L I6J THEN PRINT "Since y 
u already have a laser you Jus 
have to taKe the batten 



350 
BEEP 



370 
d O in 
ase r 
8 es • 
3S0 
4.90 
500 

no t b 

510 

S20 
disi 
L as t 
you 
5-3Q 
34-0 
ar t r 
fact 

550 
thi 



LET 



L (6> =L (6.1 + U 
10; BEEP -2 



BEEP .2,3 
3: BEEP .7 



PRINT '"You are now 
ner of adisposable 
■•'"guaranteed for '*, 



the p re 
LEPPY * 
I fS.i ; " 



2/ ; RT 3,fl; 



you 
n t 

Vi I 



GO TO 4-900 

REM dex&ateri a Liser 

PRINT RT 3,5; q$ (2 

er " AND 1(7) 

PRINT RT 5,11; " !"; TRB 5; 

'TRB 12; "1 V 1 
PRINT '"This enables 
ntegratesolid malls i 
s and tochareoat any 
may meet . " 

LET U =-FN r (53 +2 

PRINT '"This one has 
i dges "" q.$ t'2> ; "has an 
or of 14." 

PRINT '"Do you want 
s along?" 



B6 



t 
WD 

la , 



" < u ; " 

'EC * " ' 

to car f 



356B 
9 © 

3SSS 
^i?0 
3570 



IF INKEY$="n" THEN GO TO 4-3 
IP INKEY$< >'*y" THEN GO TO 3 



i =0 TO 10: BEEP . 
1;RT S,9;"CONGR 

t need »uc 

bU 

Ih 

we- 

D f 



3 S 



we 



CL5 . FOR 

35,,i : NEXT i 

35B0 PRINT FLASH 

-sTULATIONS 3 " 

3590 PRINT '"YOU didn 
h convincing for this forttida 
to e a p o n t as it's the hottest 

ing around inarroourroents." 

3600 IP l (7J THEN PRINT ' "YOU 

-T't want to carry around two 
these so you can have thecar 
dges for f ree * " 

3610 PRINT '"To use this weapon 
aim at your target and squeeze 
the Key 'd'" 
3620 PRINT 
apon " ; l i 7>. 
oo33 PRINT 
NT URRNING: 
3NGEROUS 
3670 LET 
.1 art f7J *li 
35B0 GO TO 4-900 

3t>90 rem transporter belt 

3700 PRINT RT 2 v 6,q$(3) , RT 2,0;' 

another " RND l ?SJ 

371 P RINT INK 4- j PRPER 2; RT 4- , 1 
S;"f™^';RT S,7; INVERSE 1; " + = = M 
:==■•'; FLRSH 1;"T"; FLR5H 0; IMU 
ERSE l; "1 ==; t :==-"; RT 6,1S;" 1 ^' 
3720 PRINT "This enables you to 
byper-travelto a different part 
u f the malt but you have no cant 
rol where and if you stop in a 

wall you will be instantly suff 
oca ted" 

o730 LET V=FH r(3J+2 
374-0 PRINT '"This is another mod 

sen disposable product and jo us 

i be discarded after ";u;" iss-es 

or transport failure may occu 



'"You can use th 

+u ; " t i »es " 

* INUERSE l; "GOUERNME 

THIS UERPON CRN BE D- 
FOR YOUR HERLTH" 
L fl3) =1 (13J +14-. 



LET I t7 



3750 PRINT 'St* (3) 

factor of 5" 

3760 PRINT RT 20 , 
tO PUt this on?" 



has an 



EC 



3; "Do you want 
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3770 IF INKEYf="n" THEN GO TO 49 
3730 IF INKE"/J<>"y" THEN GO TO 3 

770 

379© CLS ; LET I (S) =U ; LETT U13i 
= 1 I 13 J +5 

3600 PRINT RT 1,0;"SOLD! To that 
daring person sitting behin 
H the Z.X SPECTRUM," 

3310 PRINT "-Use this belt no ac 
re than "; u '" tiroes ."' "To jump t 
£> hyperdrive press the button »a 
ri;ed * 1 *** * 

3830 PRINT ' INUERSE 1; "THE MP.NU 
FRCXURER UILL NOT BE RESPOND I 
SUE FOR IMPROPER USE OF THIS TRR 
MSPORTER BELT 

3S3© FOR i -1 TO 5: BEEP . 75 , i . H 
EXT i 
3840 GO TO 4-900 



3S90 REM £.t€»£ts« ll-ey 

3S0S PRINT RT 3 . 0; q* f 4-J ; " I " 

3 910 PR INT -TRB 15; jfc";TflB 11, 

393© print' ''"This Key gives you 
access to anydoor in the maze*' 
3940 PRINT '"You can use it as e 

any t i sies as you li He Th i s Ke 

y has an 'EC factor of 3" 

3950 PRINT FLASH l;"Do you want 

to carry this along?" 

3960 IF INKEY$="n" THEN GO TO 4-8 

3970 IF INKEYS-1 >"y " THEN GO TO 3 
33© 

33SS 
RUSE 
3993 

£S10 



K (133 

4-O20 

4-03O 

4-B90 

4-100 

4-110 

the 

he f o 

4.120 



FOR i =1 TO 10: BEEP .1,5: P 

10 : NEXT i 

CLS 

XF NOT I J9> THEN LET t fl3J ~ 

+ 3 

LET I (9.1 =1 

GO TO 4900 

REM food fenergy) 

PRINT RT 2.10; "FOOd!" 

PRINT '"YOU quickly fUSh lO 

table and gobble up all t 

od . '* 

LET aro=FN r (25) +10 
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4-130 


PRINT 


RT 10,3; INUERSE 1;"P 


r ess 


any Key to find ou 


t";fiT 7,0 


i "The food 


has giv&n yo 


V " : FPUS 


1 — '■-' 

4140 


IF am 


.->25+FN r f5J THEN PRINT 


"Indi ges t 


i on ! You don ' 


t get any 


energy points for tha 


1 1 " : BEEP 


1,-20; GO 


TO 4-900 




415© 


PRINT 


a ra ; " valuable energy 


points . " 






4-ltoG 


LET I 


ills -I -tus +&u> 




4-200 


GO TO 


490O 




4290 


REM tr&as\jre 




4-300 


RESTORE 4430 




4310 


FOR i 


= 1 TO FN r (5.1 


: READ t $ 


; BS) : 


NEXT 


i 




4320 


PRINT 


RT 2,3; q* (5.1 


;RT 2,17; 


■■ i •• * * 


"YOU 


lave "; t a 




4330 


LET am=FN rfao.US: 


LET en=X 


iT iam --■'5 J 






i"ji0 


PRINT 


"It comes to 


the van* 


e o f 


"; an - 


'* t reasu re poi 


n t s and h 


as sn * EC ' 


factor of "; 


en 


4350 


PRINT 


"The treasure may be 


use f u l to 


hri be the 


evi I bess 


t s that hi 


d£ in these p 


assages , " 


4360 


PRINT 


'"Do you want to carr 


y thi 


s along?" 




4370 

90 


IF INKEY$="n" THEN 


GO TO 4-e 


4-380 

370 

4390 


IF XHKEY*<>"U" THEN GO TO 4 


LET I 


(13) =l il3) +en 


. LET I i 2. 


3.1 = I 


10) + a hi 




4.4-00 


PRINT 


' "You have now gains; 


" ; I 


[ 10 J j " 


t reasu re po i 


nts." 


4-4-10 


PRINT 


' -'Your * EC 


factor no 


n adds up 


to " ; I CIS) ; " * 


Each iftov 


e you m a k & 


uses up " ' L (133 ; " ans 


- q y units. 


- ■ 




4420 


GO TO 


4*300 




44S0 


DATA 


"struck gold. 1 


" , SO, "R Z 


nest 


Of Si 


iver" ,3©, "ft a 


a c k of S « 


e ami n g 


di a»onds " , 40 


. "R P la 1 3 


1UB3 sword " 


, 20 , "fi jar of 


ru hi es" .* 


+ 490 


REM £ 


v j £ wi I lain 




4-50O 


RESTORE 4500 
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4- 5= as 


DflTR 


A fie 


rce" , 


, "A g 


a an t " 


4520 


FOR i 


; NEXT i : 


4530 


OflTfi 


9 on " , 


"trol 


11 ,n$ 




4540 


FOR i 


: NE> 


:t i 


it?5i? 


PRINT 


5 




456© 


PRINT 


P rip 


your 


h i ft) 


UP ! " 


4-570 


PRINT 


going 


to d 



"An angry " .. "R 

"fln ug ly", "R h 
„ "R sj»e Uy" , "R 
=1 TO FN r {©) : 
RESTORE 4-530 
"90 r i lla"j " dem 
l"/ , hifrenioU"y 

=1 TO FN r (?) : 

INK 3; AT 2.5: 

INK 1' "tha t " S 
arms off fo 

INK 0; ' "Uha t 
o?" * "Are you g 



crazy'\ T 
o r r a ble' 
hungry 1 
READ -3 Si 

on","dr; 
"androi e ; 

READ t S 

aj$,. *' ". ; ! 

going I 

f waUnJ 

are you 

oing to: 



INK 1 '"!.>■ fight '2.^ 

run 4.-' pray he'll 3 



OR INKEYt>"4 



4530 PRINT 

bi-i be '3.- 

o ait'sy" 

4-590 IF INKEYt < "I 

THEN GO TO +590 
4-595 CL5 

J.600 GO TO URL INKEY$*5S +4-560 
4.510 PRINT "You have "; 
4-5 12 IF I f&) THEN PRINT "a laser 

4614 IF t 17 'j THEN PRINT "an anti 
■patter ra^j": 

4616 IF NOT £ I (6) * L £7) J THEN PAI 

;>IT "nothing,"; 

4616 PRINT "for a weapon." 

4620 LET pr = i { t (7> >0> *-.©*- t I l'S> >D 

> > : IF NOT pr THEN LET pr=RNE)/£ 

4622 PAINT AT 21,l;"Press a Key 

to begin the fight". PAUSE 

4624 FOR i =1 TO 5*(i/pD 

4626 LET c L =FN r<S>-l: BORDER Ct 

: PAPER Ct: INK. 7-Cl: LET ffiC=U5R 

invert: BEEP .05, 10 -FN r I20t 
+626 IF t-;6) THEN BORDER 2: PAPE 
R 6.- BEEP .075,30; LET fl>t=U5R i." 
v ert 

4630 IF I i.7> THEN BORDER 0: PARE 
fit 7: BEEP .1,, 0: LET l»C=USR invfii 



INK 4- : Ph 



4531 LET I (113=1 (11J -2 

4632 NEXT i .* BORDER 5: 

PER 0: BRIGHT 1 : CL5 

+634 IF RMD<pr THEN GO TO 454S 



90 



4e>36 PRINT AT 5,1, "YOU LOST) Th£ 
";a*<3 to 3 .; " "jtj""has thrown 
your armless body in the corner 
to join many others who had V4 

ntured in this maze" 

4535 FOR i =0 TO -30 3TEP -1: BEE 

P -5 . a . NEXT i 

4540 FLP5H 1 : C-LS : 

4642 POKE 23693,56; 

2; "Do you want to 

4644 IF INKEY*="n 

QP 

4646 IF INKEY$="y 

*647 GO TO 4644 

4545 PRINT RT 5., 10; "You won!" 

4.650 IF U7.I THEN PRINT "but Wit 

h the antimatter r-ay yo-u cou IdJ? ' 
t lose)"; LET t (7) =1 (75 -1: GO TO 

4900 
4652 IF U6) THEN PRINT "That Wa 



GO SUB 5160 
PRINT AT 12, 

try aoain?" 
THEN CLS : ST 

THEN GO TO 60 



s handy work with the laser 

LET I !&; =t 1*6) -1: GO TO 4900 
4654 PRINT ''Thai was a j>rEtty 
cky blow/' -"the ";a$«3 TO >;" 
1$.;" must be sick today." 
4556 GO TO 4900 

4t>S0 PRINT "Uhat ars you going 

o give" 'a*;** "; t *;""?" 

4pS5 PR IN j "You have with you 



1 -* 






FOR 3=1 TO 6: 
NEXT a 
giflS) 
a =1 TO 
RND I 



) 



INPUT g$ 
B: BEEP . 1,5- 
(5 + i > THEN GO 

6: BEEP .1,5 
(5+i 5 THEN GO 



IT- 
TO 

IF 
TO 



PRINT q$fta> RND 
I (a +5 J ' : 
4670 DIN 
46 73 FDR 

g $ =qj ( i 
4-ese 
4676 FOR i =1 TO 

g$=q$ (a ) RND t 
4bS0 

4678 NEXT i : PRINT RT 12.0: "SO rr 
y,I didn't understand that Try 
again*": BEEP .5,5: PRU5E 0: DIM 

9 4(64): PRINT AT 12,0; g$: GO TO 

4670 
4630 IF i =5 THEN GO TO 4590 

PRINT '"The not so ";a$(3 1 
t$'"says thank you and t 



4632 
O > ; 
a k es 
en ly 
46S4 
3J -e 
46S6 



the "'g$(i,3 TO )'"and sud-r 
di sappea rs " 
LET L (a +6) =0: 
li ) 
GO TO 4900 



LET I (13) =t <X 
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4590 INPUT 
e you goi n 
y ",; a is 
4.693 IP am 
4594 PRINT 

d that you 

d has ta 

half " "' "you 
4-595 FOR i 
P -05,i: N 
4696 LET t 
LET l» = I f 4 
3> 

459? LET I 
T U5)=n: 
= t 

4-696 GO TO 
4700 IJF am 

T "The "; t 

y" '"offeri 

U be isor 

next" -" " ti 

4-900 
+702 PRINT 

a what you 
ore " ; a $ f 3 



How much treasure af 
g to give the " ; < t $ J ; * 

>0 THEN GO TO 47S0 

"The "; tt;" is enrage 
tried to cheat him an 

Ken e ve ry thi ng , ex cep t 

r treasure." 

=0 TO -20 5TEP -I: BEE 

EXT i 

= 1 tlXJ .'P.: LET L = l (103 : 

J : LET n = L (5.1 ; DIM 1(1 



(13) =1 : LET 
LET I (10) = 1; 



L (4-."i =m: LE 
LET Ull) 



49O0 
>FN r (20) ^10 THEN PRIM 
$; ** accepts- your mea^l 
ng and tells you he wi 
e ";a*(3 to J ; *' to yo=_ 
roe.": BEEP 1,10: GO TO 

"The "; t $' "insu L ted b 
have "-'"offered. .gets m 
TO ) '"and steals your 



4704 
LET 
4706 
to +5 
4708 
4709 
4710 
ivat 
D S h ! 
O TO 
4711 
.5: 
LET 
i =0 
EXT 
4714 
4716 
*722 



4725 
4735 
n ' t 

try 



LET 

C=6 
LET I ( 

+ to =6.) 3 
PRINT 
GO TO 
IP I (8 

e you r 
You ' re 
5500 
POP i = 
BORDER 
I ill) = 
TO FN 

*LET r = 
IP NOT 
PRINT 
are p r 

You can 

GO TO 

PRINT 

you r 

in" ' "ru 



o=FN r (5) 



IF O =5 THEM 



13,1 =1 (13) -e fo> 

= 

q* (O ,3 TO 3 
4900 

) THEN PRINT 
tcansporter 
■3W3yl " : BEEP 



LET 



'¥o u ac i 
and who 

1 , 50 : G 



TO FN f (403 +10 STEP 

PN r (7) : BEEP .01., i : 

I (11) -.5: NEXT i : FOR 

r (50) : BEEP . 01,-i: N 

£-FN r (33 

r THEN GO TO 4730 
"Not fast enough .'"' i$ 
etty fast"'" sometimes 

only fight now," 
4510 

"You made it! Uhy are 
epresenting your cour 
nni ng?" 
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4740 PRINT -'m'Ler a quicfc 100 Hi£ 
■re sprint around the corner yc 

u find yourself hack in the sa 

me place" 

4745 PRINT RT 20,0; "After you hs 

■(£ had a fes^press a fcsy" 

4750 BEEP .5,-50: BEEP .3,-40 

4755 IF INKEY$="" THEN GO TO 475 



4755 GO TO 4900 

4760 FOR i =0 TO 5: PRPER PN r(7> 

; BEEP ,1,50: CLS : BEEP ,S # -50 

NEXT i 
4765 PAPER 6: INK 0: CLS 
4770 PRINT "It didn't WOrX, the " 
,t$''is still there!" 

4773 LET W =FN r ( 10) : LET t (113=1 
ill) -w 

4775 PRINT "You wasted " ; in ; " ens 
rgy units" '"trying though." 
4760 GO TO 4570 

4390 PRINT "OK.we'll leave it.'" 
4900 GO SUB 6400: REM wai t 
4920 BEEP 1,5 

4930 BORDER 0: PRPER 0: INK 5: B 
RIGHT 1: CLS 
4940 LET Ffi* (py ..pX ) =" " 
4950 GO TO 230 
3000 REN Biap 

5005 IP I (10) (10 THEN PRINT INK 
3, RT 0,0; "You don't have enough 
treasure to pay the fee, no mone 
vj y nO map.": BEEP .5,-30: GO TO 3. 

00 

5010 BORDER 5: BRIGHT 0. CLS : P 
PINT RT 4,9.. INK 6 j " * * * *NORTH * * * 

5020 IF INKEY$<>"" THEN GO TO 50 

^0 

5030 LET mx = (px -63 # (pX >5) +1 : LET 

3>y = fpy-B.' * (py ->5) +1 
5040 IF flt.X+10>L(43 THEN LET rax = l 

(43 -10 
SOSO IF my+10>l(5) THEN LET my = i 

•5) -10 
5050 LET dS=Bl$ (py ,PX) : LET K*Cpy 

t px 3 =" #" 

5O70 POR I =roy TO my +10 : PRINT IN 

K 6;TRB 9; " *"; 

5030 FOR £=mv. TQ ffi*r-*I0 



T 



5090 IF CODE m$(l,C)>4S RND CODE, 
nt$il,Cl<13S THEN PRINT "E" ., : GO 
TO SI20: REM print door 

S10i3 IF U$(t l c)>"5" THEN PRINT F 



GO TO 5120 



6; TfiB 

LET 
fee 



■3; ' 
For 



Lfl5H 1; INK 6; "JKI" 
511© PRINT m$ll,c); 

5120 NEXT C ; PRINT INK 
jz>130 NEXT I: PRINT I«K 
~ 3- * *t>OUTH S-***" 
514-0 LET I ( 13) = I ( 13) -2: 
) =L (10) -10: REM pau $10 
m 3p 

c-150 LET ro* (py , px.) =d $ 

5160 PRINT INK 4; BRIGHT 1; RT © ., 
3; "Energy lefts"; uil) "Treasure 
poi n U ="; I f 10) * "You energy cons 
^mption per move is "r I (13) 
5170 PRINT INK 5; AT 17,©;'YoU 3f 
a carrying:' 1 
51S@ IF L (6> THEN PRINT 

ii) .; t (6) .; " shots left" 

5130 IF U7J THEN PRINT 

shots left" 
IF L C8) THEN PRINT 
Life of "; I (S3: 

I (S> THEN PRINT 



INK &.-:*?£ 
q* 1 2) i I t 
INK 5.:q* 



IF 



INK 4-; qj: 
IF l(12S THEN PRINT INK 5j" 



(uia) tuen+i 

PRINT FLR5H 



(7 

i; 



) + I *8 

"No th 



THEN GO TO SS 



5200 
i3) .; ' 

^Dii'l© 

(4-) 
5315 
^ Key 

3220 IF NOT 
) *L (2) ) THEN 
i ng " 
5225 IF INKEY${>' 

5227 GO SUB 5500 

5230 PRUSE 500 RETURN 

5500 IF NOT al THEN RETURN 

5505 PRINT "The EXIT is "> "NORTH 

-" ftND py >gl; "SOUTH-" RND py-:gl, 

5510 PRINT "WEST" RND px>g2;"ER5 

T" RND px<g2; " of here." 

5520 RETURN 

SO00 REM Key 

5010 PRINT .RT 1,5.-' "You have faus? 

5020 BEEP .75,10 

5030 IF NOT I (12.) THEN PRINT RT 

21 , 3; "Do you want to pick it up? 



O040 
.: "Do 



IF I (12) 

you want 



THEN PRINT RT 21 
to swap Keys f " 
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S050 LET m$(py.. px)=" 



REM s p a c 



INKEYft="n" 

1NKEV$< >"y 



t^0&0 IF 

5070 IF 

&60 

5075 IF I (13) fl OR NOT 

N LET I (13) = 1 (13) -J-l 

5030 BORDER 2. PAPER 4 



THEN RETURN 
THEN DO TO £• 



60G© LET *ey=FW r 15'J 
2) THEN GO TO 6090 
5035 LET L{12)=hey 
6100 BEEP .1,3: BEEP 

.2,3: BEEP .5 j 10 
5110 PRINT RT 10,2; "YOU 

R KEY MfiRKED " ; I (12) ' ' 
t closely your life may 
spend on it." 
6120 GO SUB S4 00 
&I40 BORDER O . PRPER : 



L (12) THE 
INK 0: C 

IF XeysUl 



4- ,.10: BEEP 



NDL» HflUE 

' Guard i 

d 



INK 5 : C 



615 
550 
551 
N r 
55 
33 - 
P . 
653 
654 



LET py=F 



RETURN 

REM transporter 
LET px=FN rf.lt4.J3 
( I (5) ) . LET F=FN r (4) 

FOR i =0 TO 10: LET C I =FN ri 

1 BORDER C I : PRPER 7-C I : BEE 
01,10-FN r (20) : CL5 : NEXT i 
FOR i =1 TO 5 

LET cl=FN r (B3 -1: BEEP ,1,4 



■z.556 
5560 

5570 
55S0 

been 
% P a i 

6590 



BORDER C I 
PRUSE 2©; 



PRPER 7-C I: CLS 
POKE 23693,55: CL 



NEXT i : BORDER 1 

PRINT RT 6,0; "You have now 

trar.ip-LM-ted" * "to a diff«f*r. 

t o f the maze" 

LET 1(8>=1<8>-1: IF NOT t J -C- 
J THEN LET I ( 13) = I ( 133 -5 
6600 GO SUB 8400 : RETURN 
7000 REM drop object 
7005 PRPER 6; INK 0: BORDER 4; C 

7010 INPUT ("What do you wan t to 

leave" 'n$; "? " > ; 9* 
7020 IF 9*11) =" " THEN RETURN 
7030 FOR i =1 TO 6 "" . 

704-0 IF 9$ = qS(i) THEN GO TO 7373 
70S© BEEP .1,10-FN r 1203 : NEXT i 
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-Ci50 

hat 

701© 

7073 

,"080 

; 9 * * 

7100 
Uf " 
"?110 

? 1 20 

7130 

7140 

you 

7150 

don 

"; n 

/iee 

ri0j 

7170 

' PO 

7180 

7190 



PRINT "Sorry,, I don't Know & 
'; g$; " i s ,Try again.": GO TO 



IF t i i +5) THEN GO 
PRINT "But you do 

"Try again": GO TO 
IF i = 5 THEN GO TO 
PRINT "OK, say goo 

'q$ [3 TO J 
LET I (13.1 =l (I3> -e 
LET L ( i +5 3 =0 
DEEP 1.. IS; GO TO 
INPUT "How much t 
want to Leave 7 " ; i 
IF tr ) ■ I (.!&) THEN 

* t have that much" 

* ' : BEEP 1 , -10: GO 
LET L (13J =1 (13) -t 

= 1 1 10"! -tr 
PRINT "Say good by 

in is of""trea5ure 

IF L (13) <=0 THEN 



S 



PAPER y& 



TO 7090 
n't have 

7010 

714.0 
dbye to yc- 

u > 

719^5 

r&a.suc& do 
r 

PRINT "YOU 
' "treasure 

TO 714.0 
rsS: LET i 

e to "j tr, 

LET t £13} - 

11-fK S : C 



LET 



BORC/EP 
RETURN 
7200 REN debate ria Users 
721© LET dy=py+(f=3)-(f=l) 
dx=pX+(f=2J -(f=4.J 

7212 IF dy > I (53 -1 OR dy <2 OR dx t" 
2 OR dx>i. (4.1-1 THEN PRINT "Sorr^ 

you can dematerialise this outer 

W3 LL": PAUSE 0; RETURN 
7215 LET M$(dy,d-X3=" " 
7220 FOR i =4-0 TO 55: LET C t =S-FN 

r (S) 

7230 

7=:*0 

7250 
7250 
.'500 

7505 
£T I 
7510 



7-c 

i 



CLS 



PAPER C I : BORDER 

BEEP .65,1 : NEXT 

LET I (7) = 1 (7) -1 

BEEP .5,-20: RETURN 

REM s^ave game 

LET L(l)=py; LET I (2.* =PX : L 
f3> = f 

PRINT FLRSH 1; AT 16,7; "Savi 
ng Maze Data" 
7520 PRINT INVERSE l' "Filename ' 

"saze 1 ; RT 20,0; "Please Keep pr 

sssing a Key untilthe screen cle 

a r s " 

7S"30 SPUE "maze" DATA L CJ I CLS . 

spue "maze" DATA a»4HJ 
754-0 INPUT "Ueri fy?"; a$: IF a * < r 
y" THEN RETURN 
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755© PRINT "Rewind cassette, then 
PLAY" •''"!/ loading error then t 
-'p-e : GU TO 7500" 

7550 UERIFY "maze" DATA I ( ) : UEP 
iFV "maze" DATA m$(3 
•^570 RETURN 

7500 PRINT FLRSH 1; RT 10,9; "Load 
i ng Da t a " 

7520 PRINT ttO; FLASH 1 ; RT 1,4-; "S- 
tart cassette recorder' 



P530 LORD "«iaiE' ; 
m a z e " DR i R m $ ( ) 
rS4-0 LET py = 1 (13 
:T f = 1 ISA 
^550 CLS 
^660 RETURN 
REM vai' 
IF NOT 



DATA, t O 



LOAD 



LET p;< = l (23 



LET 



LET 



•z- £s £* 
3010 

3020 

2: REN P 

5030 DIM 

• fS> =n 

804-0 LET 

3050 LET 

S -Jtiip t i or> 

3050 LET 

3070 

st 

3030 

3090 

3100 

3110 

3120 

J3R C 

3130 

314.0 

3150 

3160 

8170 

3130 

i <?S 

3190 

RIGH 



i a b i. es 

set THEN GO TO 5070 
PX=2: LET py=px: LET f= 

Layer position in maze 
I (13) : LET I (4.) ~0i : LET 



(103=200: REM "treasure 
(13>=1: REM energy con 

(113= INT ( L (4-3 *l (5) /55 

=0: LET re=r-. REN repe 



LET 
REM 



gl=0: LET SW=0 

define graphics 
RESTORE 8250 
FOR i =1 TO 7: RERD C* 
FOR e=0 TO 7. RERD n: POKE 
$+e ,n 

NEXT e : NEXT i 

FOR i =USR "S" TO USR "s"+iS 
RERD b: POKE i,b: NEXT i 
LET invert =USR "s" 
DIM q*(S,16J: DIM e<63 
FDR i =1 TO 6: READ a$,e: LE 

i i j =3 $ : LET e«i)=e: NEXT i 
BORDER 0: PAPER 0: INK 5: B 

r 1 : CLS 



3200 
3250 



RETURN 
DATA "a 



, , 3 , 15 , 12 , 12 , 12 



3250 DATA " b" t & , , 123 , 224- , 96 , 4-B , 

43,96 

3270 DATA "c",l,l, 1, 1,0, 1, 1,0 

3230 DATA "d " , 224- , 192 , 12S , 125 , * 

123 , 128,0 
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3298 DRTR "e",£5S,129 J 129 1 ,129,I£ 
S,129, 129,255 

3300 DRTA "K" / 0,2,3,255 J 67 J 226, ; 6 
4- , 

9310 DATA '^.",24,60,126^0,34,24 
,24,24 

ts320 DRTR 33,0,64,6,24,197,6,0,1 
26,233,255,119,35,16,249,193, 16, 
243,201 

c>o3G ORTfi "a laser" ,«, "an antijsa 
tter ray", 14, "a transporter belt 
'^5, "a skeleton K ey " , 3, "some tre 
= sure".,0,"a key",l 
is400 PRINT AT 21,5; FLR5H 1; INK 

y; "PRESS ' c ' TO CONTINUE . " 
ci410 IF INKEY$o"c" THEN GO TO ® 
410 

3420 SEEP 1 , 10 t RETURN 
3000 REM instructions 
y@02 POKE 23609^100 

i>005 INPUT "Hullo! Be Fore we sta 
r i ,p lease *' J "en ter your name."; L 
J.NE n$: IF n* = "" OR n$="no" OR n 
$="yes" THEN CO TO 9005 
9007 IF n$(l)>"Z" THEN LET n $ ( 1 3 
=CHR$ (CODE n$-32) 
3010 BORDER 1: INK 1: PAPER 6: C 



DRRU fa*25-125: 
b*25-125., 1 



3020 FOR b=0 TO 10 

3030 PLOT 127,175; 

, -175 

3040 PLOT 127,0: DRRU 

^5 

3050 NEXT b: POKE 23609,50 

9050 PLOT 0,112: DRRU 255,0 

y070 PLOT 0,70: DRRU 255,0 

3060 PRINT RT 3,0; 

3090 OUER 1: INK 2 

3100 PRINT TRB 7 ; "— — _" 

3101 PRINT TRB 7;"F I" 
1*102 PRINT TRB 7; "I I 

9103 PRINT TRB 7; I 

9104 PRINT TRB 7; " 



3105 


PR INT 






9110 


PRINT 


TRB 


10; " 


9111 


PRINT 


TRB 


10; " 


3112 


PRINT 


TRB 


10; " 


3114 


PRINT 


TRB 


13 ; " 


3115 


PRINT 
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3120 
9121 
3122 



PRINT 
PRIMT 
PRINT 



TRB 
TAB 
TRB 



n ^ * 



3123 
I I 

9124 
I 1 

3150 

9150 
i ons 
THEN 
3170 



PRINT TRB 7, 
PRINT TRB 7. 



OUER 
BEEP .5 
"Do You 



INK 1 

.5,5: 

INPUT 
iy/n) ?*' 

RETURN 

BORDER 5: PRPER 
3IGHT 1 : CL5 
3180 PRINT 'TRB B 
R5 OF DOOM"" ' ' 
3190 PRINT "GREETING^ 
R5 OF DOOM 1 " FLASH 1; 
9220 PRINT n$; 



I II II 



0. 



BEEP .4,20 
10 

Need Instru 



Bas 
I I 
I 



ct 



LINE a*: IF a$ = "n 



INK 4 . B 



FLRSH 1 ( 



DOG 



to 



the DOO 

CHR $ 8 ; 



You have co we here i 
the Ultimate Goal 8>h 
beyond one of the DO 
at the heart of the 

la by f inth." 

long deceiving passs 
f the right rot; 



9230 PRINT 
n search of 
ich lies 
ORS OF DOOM 
u n w e Lcoming 
3240 PRli'iT 
rough the'" ' 

ges in search o 

te to the i n ts.r i o r . " ' ' 

3250 PRINT "Throughout the maze 

there are. doors leading to an 

adjacent "' "passage , and behind th- 
ese doors xsay Lie DANGER. . . or h 
ope"?" *" 

9250 GO SUE S40B: PRPER 0: CLS 

3270 PRINT "The doors are lockec 

and can "'"only be opened if you 

possess a matching key, which ar 

e littered around the labyrinth. 

INVERSE 1 ' "DIRECT IONS 



9280 PRINT 

- > " : INK 5 

9230 PRINT 

nich shows 

is and the 

* 1 1 will alsoshow 

d doors "' "nea r by " 

9300 PRINT "Each 

r a map you lose 

tits" 

9310 GO SUB 6400 : 



You way use a o> 

the surrounding 

path you have t 

up any Key 



time 
10 tr 



you as 
easu re 



a p u- 

W-3 l 

a K e n 
s an 

k f o 
poi 



BORDER 0: CLS 



S9 



1 



3320 
LOT 

R' f 
934-0 
3-rei" 
935@ 
■* * "K 
? t 
3360 
U pi 
SUH>P 
the 
Sf £ 
3370 

y th 

Ur 
9 i n u 

I £5 t 
£S" 

9330 
he IB 
9390 
94-00 



print Tfle e; " *kev words 

0,167: DRRW INK 4; 24- , 
PRINT '"Keys *L' for te 
or right and 'B' for bsc 
PRINT '"Key 'tF* to step 



PRINT 
e y ' E ' 
o a l on 

PRINT 
ck up h 
t i on or 

atsoun t 
ach ste 

PRINT 
e s ize 
g e s t at a 
tes to 

will t 



-Key ' 
to rep 
9 co r r 
INK 5' 
as i ts 
'EC 
Of'" 

p." 

INK 7' 
o f maz 
z e wi L 
produ c 
aKe" ' ~ 



S ' to savt 
eat. (if you 
i dan " 

"Each objec 
own Energy 
factor .Th i 

energy used 

"You may sp 
eto be used 
Ltake up to 
ewh i te the 

a to u t 1.2 JB 



ft,' 

For™ 

gawie 
co»> 

t yo 

S is 

aft 

ecif 

, the 

26 

sma i. 

h nut 



PRINT IM« -S.; "V^u 

azes for future 

GO SUB 64-00 
RETURN 



use 



a'-ria. 
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Gold Rush 



Your task in this game, written by Neil 
PeLLinacci, is to carry six sacks of gold 
from a bank vault to a safe. The veult and 
safe are separated by a river. The river 
can be crossed vie a network of sma L L 
dams, which are built across it. 
Unfortunately, the future of this Link is 
not certain, because occasional Logs 
drifting down the river will destroy parts 
of the dam system. You must transfer all 
the sacks to the safe before your route is 
cut off. 



You play the game using the following 
control keys: 



Q - to move up 
Z - to move down 
I - to move Left 
P - to move right 



Your current task is shown by the color of 
your man. White indicates that you have to 
pick up e sack, and yellow shows you are 
carrying a sack. To pick up a sack, you 
just move onto the same square as it. You 
put it in the safe by moving onto the 
safe. In either case, a beep will sound, 
and the man will change color. You have 
three men per game, and the number Left is 
shown at the top of the screen. 



1D2 
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A Log will remove any section of dam in 
its path. However, sections above and 
below are also damaged, and if you move 
off one of these, and into part of the 
river where a Log has been, you wiLL Lose 
one Life. This is the only way you can 
Lose a Life, so be very carefuL after the 
first few Logs have appeared. 

When aLL six sacks have been put in the 
safe, you move onto the next Level. On 
this Level, there are two dam formations, 
and these aLternate. As the game 
progresses, the number of Logs increases, 
untiL finally you'lL find the game is 
virtuaLLy impossible. 

You'll see at this point the dam is almost 
nonexistent, and you'll have to resort to 
new tricks . You can 'hop' onto a Log 
immediate Ly above or below. It is 
difficuLt at first, but not impossible. 
Remember, you don't move with the Log; you 
are just using it as a piece of dam. If 
you are very careful, you can even move 
right and Left using the Logs. 

The end of the game is the hardest part, 
and it is the main reason for getting as 
high a score as you can before the dam is 
destroyed . 

Scoring is simple. You get 100 points for 
going from the safe to the bank vault and 
another 100 for successfully bringing back 
a sack of gold. If you Lose a Life while 
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carrying the sack , you do not score . 
Neil's highest score is around 3300, which 
gives you a target to shoot for. 

The program is written mainly in BASIC, 
but it uses a machine code routine Located 
at 32530, which moves the Logs right and 
Left across the screen , stoppi ng them 
after a collision with a dam waLL. The 
data for this machine code is held in the 
Last two Lines of the program. 

Here's the key to the user-defined 

graphics: 

R = X 
3 = ^ 
C = & 



This is the program's structure: 





100 


1000 


- 1030 


1040 


- 1045 


1050 


-1100 


1510 


- 1560 


1600 


- 1B30 


1700 


- 1740 


1800 


- 1820 


2000 


- 2100 


BODD 


- 6650 


7000 


- 7100 


8000 


- 8100 


9000 


- 9120 


9200 


- 9310 



subroutine to print score 

game preparation 

initialisation for each game 

initialisation for each Level 

of the game 

main Loop 

detects col Li si ons 

end of one Level 

lose one man routine 

game over routine 

draw dams across river 

draw river and the banks 

title page and instructions 

POKE user graphics characters 

POKE machine code into memory 



Wb 



And here's the listing: 



18 CLEAR 32529: RRNDOHXZ5 

o less 



188 PRINT RT ; ii-LH 



1IKS X> 



nk 7; prper h; bright 3. .: 5- : ret or 

go 



1S02 REH SETUP 

1312 BORDER 2: =&?ER 4^ CLE 

i8>^! P:-riN: ST ^?,S. INK "7.. PflP&R 
2; "SCyKi: "J 5Sl6HT_i; "SiSSaS " _- 5H 

IGHT 0_» r| HI -SCORE *"j SLIGHT Ij "3 

®080" 

I 33S LET HS=Q 

1S4-0 GO SUB SS©S; PRINT ST 8 . Si 
PRPER 2: INK 7; BRIGHT 1; 83833" 
; RT - 15 ; -S'" 

104-5 LET HH=0i LET MEN=Si LET 5 = 
0: LETT RN=.992 
1050 LET SK = S. LET L=2: LET C = 2S 

LET G=7 
1100 GO SUB TOG©: GO 3US 6£^t? 
1300 REM LOOP 

1517 LET Ri = INKEV$: IF^R^'"' THE 

N SO TG 15SE 

152© LET L=L* {R$="Z ,, j - (R£= G * 

1330 LET C=C-r (RS^"F" J - LR = = "£"J 

154-8 LLT RT^fiTTR iL,C) : IF Rj < >2 

4- THEN GO TO 150© 

154-5 BEEP .©025.13 

1550- PRINT RT Li.Ci; PRPER 3 : IN 

K 8 ; '• " ; RT L.C. INK G ; FRPER 3; " 

1555 IF RND>RN THEN PRINT RT 7 4-1 
NT (RNDS9) ,3S; INK 0; PRPER ©:" 

" : LET RN=RM - . 0005 
I5bS LET 2-UGR 32530. GO TO 13 i© 
1530 IF HT^SE THEN IF G=7 THEN L 
ET G=E. BEEP . i . 2S : LET 5=S-fX30: 

GO SUE 100: LET 5K=5K+1: GO TO 
155S 

1510 IF RT=31 THEM IF G = 5 THEN E 
EEP .1.4.0: LET G=7 : LET i=5tl83: 

GO SUE 100: XF 5K=5 THEN GO TG 
17S0 

1520 XF RT=45 THEN GD TO 1S30 
1525 IF RT=© THEN GO TG 1545 
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1S30 LET L=L1. LET C=C1: GO TO 1 

5S0 

170© FOR R = -1S TO 2© STEP 3. SEE 

1710" FQR~R=15~TO -1© STEP -5 BE 
EP .1.3: BEEP . 1 . R -3 : NEXT H : BE 
EP . 1 . -15 
1720 FOR R=2 TO 21: PRiNi Pti ftjls 

: prpep. rxs: " 

: NEXT R 
17 3© BEEP .1.20: BEEP .1.25. FOP 

R=l TO 21: PRINT RT R . ©.: FHPt.R 
3 ; " 

*" : NEXT R 
174-0 GO TO 183© _ 

I8SS FOR R = l© TO -S--s 3 1 it- -A : PP 
XNT RT L.C: PRPER 3; INK &i "A"ifl 
T L.C: PRPER 3; INK 5; " ": E€tR 
.01". R*: NEXT R 

1305 PRINT RT LI.. CI.: PRPER 3; IN 
K ©; " " 

1310 LET MEN=NEN-1. PRINT RT S ; l 
5; pqpER 2; INK 7 ; BRIGHT %i l$£3ti 
IS I 5 XF HEN=© THEN GO TO 2OO0 
1817 IF 5K=S THEN GO TO 
132© LET L=2: LET C-S.3: 

GO TO 150O 

2iSS® REM GRME_UlJER 

2© IS Fun R=© TO 7: FOP 5=1 i u 21 
- PRINT PT B.O; PR.^ER R:" 

*' . NEXT 

E ; NEXT R 

2020 FOR R=l TO 12. BEEP . 1 - _ :. & 
EEP .1.3: BEEP .1.13. NEX i R 
2030 XF S >HS THEN LET HS=t? : PR IN 
t err ^} ™P —'■ t^f-- 1 5TP*S HS : P'-fi-'ER 2 1 
INK 7.; BRIGHT 1; H5 : 3L^R * i. ^ 3 - B 
EEP . 2 » IS 

2833 FOR R = 2© TO 2 STEP -i: PRIN 
T RT R.O: BRIGHT 2. . Pfi^tP ;-<ND*7; 

INK 3* " GRHE OUER GRHE OU£(3 'ififi 
E OUER " : NEXT R 

204-0 FOR P=© TO 7. BORDER R. BEE 
P .2, 7-R: NEXT R: FOR R~7 TO S 5 
TEP -1. BORDER R: BEEP .2., ^-R-l: 

NEXT R 
2180 GO TG 104-O 
SOS© STOP 
S000 REN BRIDGES 

3018 IF MM=S THEM GO TO 66BS 
502© LET NM=© 
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5850 PRPER 3: INK ©: PRINT RT 7.. 

3 ; "' " ; RT "7 ,. IS; M 

S06@ PR INT fiT S.= 3; " ":&T £.. 12; 

";HT 3 . 15; " 

5970 PRINT fiT 9.S;" ";RT S,1E- 

; ■' " ; rt 1© , 3; *• ' " .; RT is .. I?; 

50S0 PRINT RT 11,9.;" " ; RT 11^12; 

" ; RT 1£ .. &> "j R - 

12 . Id- ; " " ,. ST IS., ££,; ' 

509S PRINT RT 13,5." " # ffi JU*^Z* 
... ... RT 13 . S 2. ; " 

6180 PRINT RT 3.4- . 5, ** i R 

T 14- , IS : " " i RT 15 , 3 f * *" ; 

RT 15.. 15.1 " 

5500 RETURN 

5500 PRPER 3: INK ©: PRINT ST 

is .; " j rt ?, £0; " " ; R s s . J-^; " 

5510 PRINT RT S > 12; " " .: RT 3 , 1£; ' 

",rt 3.1&;" ";RT g.,&3; *;R 

T IS .- iS;"'": RT 1© , 13; * " .. RT 13,1 

6: " '"" .• RT IS .20; " 

552© PRINT RT 11.. 10; " "jRT 

1I.2S;- " ; ; RT 12,10.;'" *.. RT 12.. 1 



553© PRINT RT 13.3; 
5; " "• ; RT 13 .2©; " 

'* : RT le .. 2©.; ' 

554© PRINT RT 15.. 3.. 



■; RT 13,1 



R : IS .. 3. 



555© LET MM=1. RETURN 

7©0© REM SCREEN 

7S10 FOR R=l TO £1: PRIWi RT R .. S 

; PRPER 4 i " 

" : NEXT R 
7015 FOR R=5 TO 15; PRINT R: R .« © 
: PRPER 5; INK ©; rt 

' 4 : NEXT R 
7@20 INK Q; PRPER 3: r OR R = l TO 
3 : p^t^t p-r- u,23.; " " "- HEX; R 
7 © 3 © P R I NT RT ii . S ; _ 

*■ ; RT 3.3:*' " . RT 3 . IS; " " .. RT 4,ai 
; " " : RT 4- . IS; " 

704-0 PRINT RT 5.13;" ";fii &.. 13;" 

■• ; RT 5.21;" " ; RT c.21," 
7050 PRINT RT 15 , IS : " '., Ri ^t .. IS 



-rgjggs PR IN 

RT^iS.'lS; 
T 2©., la-.; " 



RT IT , 9; " 

I "JpiT 13,23, 



IDS 



j 
R 



7©7© FDR R = 12 TO 21: PRINT «T R^ 

3 . " " : NEXT R 

70S© FOR R-1S TO SI: PRINT RT R * 

3; INK S : " JLX" ; NEXT R: PRINT RT 

2 .25; INK ~; "O" 

71S0 RETURN 

5000 REM TITLE PPiGE. 

3G0E SDR&ER 3 

3010 FOR fi-1 TO 21. PRINT RT R .. S 

; PRPER 5; " 

" ; NEXT R 

5012 D-XM 1(6) : FOR R = l TO 5: LET 
I (R) =R-i: NEXT R 

5013 FOR R = l TO 6: LET II-IMT f .R 
ND5-SO -r-1; LET RR=X (R? : LET I IR) =1 

(113: LET IiIIJ=RR; NEXT R 
S015 GO TO 803© 

3S IS FOR R=l TO S: INK I »Rj : SOR 
DER I-:R.»: PRINT FiT 4-, 7', -^MaSSSMM 

i^xj-iip^" ^_ 

3©£© PRINT R; 5 .7.. ia a ^^is^aa^MSS 

SS22 PR INT RT 5.7: i" ; RT 5 . £4 , "M 
'■ ; BEEP .4. . I (RJ rl© 

3324- IF INKEY£c>"" THEN SORDER £ 
: RETURN 

3©25 NEXT R: GO TO S0I5 
3 '2 s 3© PR INT RT 10.3.©; PRPER © . I.N 
K 6." BRIGHT 1." GGLt? RUSH '' 
304-© INK S: PRPER S: PRINT RT 12 
. 12 ; "CONTROLS" : PLOT © . 75. DRfiU 
35 -. © : PLOT £55 . 75 DRSU — SS O 
3S5Q INK 1; PRINT " RT ' 14- . si"©" =• * 

. . UP" ; RT 15,9, "2 ....DO 

UN " 



3©S© PRINT RT 16.S,"I 

FT";fiT 17,9; "P RIGHT 

3070 PRPER 5: INK 0: PLOT © 
ORRU £35..© 

303© PRINT RT 13.5; PRPER 4j 

7; BRIGHT 1; PRESS RKV KEY 
t_RV ■ > 

509S PRIHT RT £1.,©., PftPEFi £. 



* .LE 

£4- : 

INK 
TO P 



itafi by Nail PeUia^cci 



1* J Vr 

310© GO TO 5015 
©30© REM UGO 
3©©5 RESTORE _ 3 1©S 
9910 FOk R=U^*< "R" 
: RERD B; POKE R,B 



s O ii&K R*~ +23 
NEXT R 
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T 



32.SS DSTfi B . 3.26 . 60 .24 . 50 . 1S8 t £55 
. 126 

9 liS C-RTR 233 . 129 . 133 . l^S- * 137 , IS 
9 ,355 , 1@S 

SIS© DRTR 16 , 56 . 16 . 124 , 15 , 4S . 66 , 
S3 

92S© REM MCODE 
9210 POP R^S TO 47. RERD 6. POKE 

3253S +R ■ B : NEXT R 
9226 RETURN 

9300 DRTR 33 . 132 , SS ,6,11,14.31,3 
5 , 12S . £54 . 3 , 52 . 15 . 54 . 45 , 43 . 125 , 2 
54 ,34 

3310 DRTR 3£.4.54,45,£4..2,54,0.3 
S,13.32. 232 . 35 . 15 . 227 , 33 . 192 . SB j 
17., 32.. 3,6,11 ., Si., 45, 25, IS, £51 , 231 



Tarantula 
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In Malcolm Young's great program TARANTULA 
you are in a dark pit about the size of a 
footbaLL fieLd, fighting for your Life 
against dreaded tarantula spiders. 

The tarantulas slide down the sides of the 
pit looking for food, and human beings fit 
into the category of food. You're equipped 
with a torch and a laser, and you move 
around the pit in a fairly fLimsy tank. 

Instructions are within the program, and 
you'll find you'll quickly work out how to 
play it once you get the program up and 
running. 

X REM gc iphi c ch3ra<: tars : REN 
«=$ E=* C=B D=fc E=* F=S G=J H=fc 
J = ~ <J =r K = * 

5 DIM p*( 15): DIM W$(5,1S): D 
IH q(5J 

S PRINT "Please wait Just a i» 
s»enl,": GO SUE S615: REM define 
ch aracters 
IS GO SUB 90S0 

20 BORDER 5: PRPER 0: INK 7; C 

t as 

""30 PRINT RT y,x;t$ 

35 PRINT INK S, PRPER 5 ; RT 21, 
2 , "SCORE = "; S core; RT 21, 12.; "SPIDE 
RS = ";nb:" LIME5 = '-; lives 

40 LET a ~x : LET b=y 

5© LET iS=INKEV* 

60 GO TO <i*<"i" OR it>"8"J*20 

7© eE.£P .05.0; GO SUB URL i**l 

SO PRINT RT b,a;" "; BRIGHT 1.; 
hT y*x; INK rKjT$ 

90 GO SUB tRND < lev :t #100 + 100 

100 GO TO (d$(y + l..X+l}="^":t*390 

+ 110 
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110 LET cn=cn*Ccn<n)+l 

120 GO TO in >GO *65+*0 

125 IF NOT Stcn.li THEN GO TO ( 

130 LET sx=S ( cn , If : LET s y =S < cn 

14-© LET 6$isy,S-X! ='" " 

150 LET sy=syf (jy<y+l) -(sy>y+ll 
_- LET s (cn,2) =sy 

150 LET S)(=sxfisx«+li-!sx>x+15 
LET 3 i cn , 13 =sx 

178 LET dttsy^Sx):"^" 

1S0 GO TO 40 

200 REM new tarantula 

210 IE n=15 THEN LET Lev =.05: R 
=TURW 

220 LET n=n+l: LET nb=nbtl 

230 LET sxr=s(n,i): LET sy=s(n,S 
I 

24-0 LET dt(sy,sx)="!t(" 

250 LET C=INT (RND*6J +2 

250 PRINT BRIGHT 1; INK c ; RT sy 

-1 . sx-1 ; "JlS" : CMR* 3; : BEE^ ^4-^1.- 

PRIHT ; ** " 

270 PRINT INK 0.; PRRER 5; RT 21, 
2i " SCORE ="; SCORE.; RT 21, 12 ; "5PIDE 
RSa 1 '; nb; " LIt i ES = ";LIVE5 

2S0 RETURN _ 

f;0@ print prper 7; bril^hi i; Fl 
R5H 1; INK 2; RT lO ,, 5; "a r r gh I ! I 

riEY GOT YOU."; LET Li V6J=U V6S-1 
510 FOR t=l TO n: IF s(t,l)=Xtl 
AND s(t.2)=m-l THEN GO TO 530 
520 NEXT t: STOP 

530 LET d $ ( S i t . 2 * . S ( t , ll J = " 
54-0 LET S(t:l)=0: LET Hb=nb-1 
55© FOR t=l TO 10: PRINT INK 2, 
AT y,x;"«",CHRt S; : BEEP .25,1: 
PRINT "J*" : BEEP .25,0: NEXT t 
560 PRPER O : INK 7 : FLASH : CL 

565 IF n=15 RND nb=0 THEN GO 5U 

E 3250 
570 PRINT INK 0; PRPER SjftT 21, 

2; "SCOREs", SCORE; RT 21, 12; "SPIDE 

kS = "; nb.; " LIUES="; LIUES 
575 LET r K =rK + lr K <7) 
530 IF Lives THEN RETURN 
530 IF score <q (53 THEN GO TO 6* 

3 
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500 INPUT PRPER 5, INK 1.; RT 0,0 
, f'YDU have made, the "; FLRSH 1, 

TOP FIUE"; FLRSH 0' PRPER 5; "PL 
ea$| enter your name, "j; LINE p 

"610 FOR r=5 TO 1 STEP -1; BEEP 
.l,r: IF iCOrejqlr) THEN NEXT r 

620 FOR 9=5 TO f +2 STEP -1: BEE 
P .1,9: LET q<g>=q(g-l) : LET W $ S 

Si ««S lg -l) : NEXT g 

tj30 LET q(9) =SCCfe: LET W$C9i=p 
5 

64-0 BORDER 3; PRPER 5; INK 2: C 
LS 

S50 PRINT RT 3,2; "Today "s Champ 

i 3ns sr& : " 

550 FOR r =1 TO 5 : BEEP . 5 , r 

670 PRINT RT 7 + r,4-J FLASH" (W$(r 

> =»p $ RND 5core=q(r)J;«*{r» ,q(f) ■ 

NEXT r 

6S0 PRINT RT IS, 3; FLRSH 1; INK 

3; "DO YOU UflNT TO PLRY RGAIN?" : 

PAUSE 

£-30 IF INKEY* = "n" THEN STOP 

535 GO TO 10 

700 REM promote rank 

71© BORDER 2; PRPER 5: INK 1; C 
LS 

720 PRINT RT 3,7; "CGNGRATULRTIG 
W5"' 'TAB 1; "You have killed ";sc 
or £.-'10; " tarantulas" 

730 PRINT 'TAB 5; "You have now 
been " 

74.0 LET rfc=r*-l 

7 5© PRINT 'TAB 3; "promoted to t 
ne "ifkr"th" RND rk>3;"rd" RND r 
f.=3;"nd" RND rk=2;"st* RND rk=l; 
" RANK" 

750 RESTORE 65B0 : FOR t»=l TO 25 
RERD n ; BEEP . 2 . n : NEXT m 

770 PRINT 'TRB 2; "You will now 
change tanks to " 

730 PRINT TRB 5; "signify your n 
s w ranK" 

730 PRINT '"You now control the 

600 FOR 0=5 TO rH STEP -1: RERE* 
C*: NEXT C 

610 PRINT BRIGHT 1; PRPER rk; I 
WK 9; c$; 
62© PRINT " tank." 
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330 DIM d$ 
r =3 /3 : LET 
84-0 GO SUB 

i "Pre. sb a k. 

650 BORDER 

~:LS 



66© 

1000 

1010 

1050 

th=a 

iS25 
1030 

104-0 
1050 



LET p = 

LET UD 

LET HD 

LET U = 



PAPER 
GO TO 
LET d t 
LET d = 
i : LET d =d ~ 
1070 FOP t = 
1©S© LET U L 
1090 LET I (. 
w +i0tb-21> 
1100 PRINT 
UHRJ S.; : IF 

1; "F"' AND 
a 110 FOR w= 
LASH (d$ Cw, 
$i»vt); . NE 

1120 PRINT 
CHR$ S, : IF 
R 1; "k" AND 
1130 LET (i/ t 
1X4-0 GO TO 
1150 LET dt 
1160 LET d = 
LET d=d- 
117© FOR t= 
IIS© LET U 
1190 LET Ul 
•:h -f-W th >323 > 
1200 PRINT 
O Ul): 
1202 IF 
T t-1, L 
■■• d = - 1 
1205 Ir LU< 

pnr t-i,ut-i 

v d = - 1 

1210 LET wt 
1320 NEXT t 
1230 BEEP . 
lL5 : PRINT 



(22,32) ; LET S =7 : LET 

n=©-. LET nb=0 

9250: PRINT AT 20,iG 
ey u : PAUSE 500 

5 : PAPER : INK r fc : 

©; RETURN 

= (T* = "V) -tT$ = "»k"J 

= tTS = t, B-") - tT$ = "fl") 

Y + l: LET H=X+1: LET w 

&: INK 0: 
ABS vd*110+1040 
= (S *hd > 

h+dt: LET d=d OR (del 
(d >32J * (d-32> 
b +,bd TO d STEP >>d 
=v-tuth uR v-wth<l 
= iv+Wth.» - i V «th!2i) *( 



U> 

L-l; 



AT uL-l,t-l,d*tOi*,t>j 
U L > 1 THEN PRINT OUER 

bd=l;"^" AND bd = -l 

UUl TO U-l; PRINT F 

f}<>" " ) : RT w-l,t-i.;d 

XT Ui 

AT U-l,,t-l.;d*(lL,t:«.; 
U<£1 THEN PRINT OUE 
hd=l;"i" AND bd=-l 

b=ftftb+l; NEXT fc 

123*3 

Vfdt: LET d=d OR fdil 
td!-2I'J * id -21 i 
V+Vd TO d STEP Vd 
= (h-wth> OR (h-Wthti) 
= (h+WthJ - ( (h-f-W th-32> * 

AT t - 1 t L I - 1 , d * i t , I I T 

1 THEN PRINT OUER 1.; A 
"JF" AND vd=l; =; k" AND 

32 THEN PRINT OUER i.; 

^" AND Vd=l.;"J" AND 

b=Wth+I 

2,5: PAPER 0: INK 7 : 
AT y , X .; t $ : 
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124-© PRINT INK 0, PRPER Sj AT 21, 
2, "SCORE="; S co re ; PT 21, 12; "SPIDE 
S5 = " ;nb; '» LIUE5 = "; lives 
125© LET 5=S-RMD/3: RETURN 
200© LET UD = (T$="9 , 'J - tT$« rt A"J : L 
ET HD = iT*= ,, * t, J - 1TJ = "I") 
10 LET y=V + l: LET H=X+1 

R 
LET H=H+HD 
t+aJ<U -(U ,-. 21 .i : LET H 
•321 



= 

202S FOR T=l TO 
1025 LET y=U+UD 
1-03© LET V=V 
= H + (H < 1) - (H. 



05, 10 
AT V--i,H 
< D $ f W „ B > 

INK 0; RT U-1,H-1;'J 

RETURN 



1035 BEEP 

23-4.0 PAIN" 

2©50 GO TO (DSfU^Hli <>" ">*£0+20& 

3 

1060 PRINT 

NEXT T 
1-070 LET r=r-(r>2-i/10. 
20S© FOR T=0 TO 7: BEEP .l,t: PR 
INT INK t; AT U-ljH-i; "#"; CHP.* S, 
BEEP .1,1+7: PRINT INK 7-t;"^" 
; CHR$ S; : BEER .1,1-7; NEXT T 
2030 LET SCORE = SCORE +10. LET 5=c 
r.RND/l: LET r=INT (S.^1,5J+1 
21©0 FOR t=l TO n. IF VsSUi2) A 
*D b=S(t,1.1 THEN GO TO 2120 
2110 NEXT T: STOP 

2120 LET SU,1)=3: LET nb=nfa-l 
213© LET d*£v,hj=" " 

214-© PRINT INK 0; PRPER 5 : AT 21. 
2; "SCORE = "; SCORE; AT 21.12; "SPIDE. 
H5=";nb; " LIUES=" ; LIUES 
2 1 50 LET L e v = L e V +0 „ ©I * i f I e V < . 2 .1 
21S0 LET p=p+l: IF p =15 THEN GO 

; O 700 

2170 IF n=15 AND nb=0 THEN PRINT 

BRIGHT lj PRPER 4; INK 0; AT 15 , 

J; "Please wait 2 seconds for the 

next wave , " : GO SUE; 2250 
2 190 RETURN 
50B0 LET T£ = "-a" 
s(3l0 LET X = X- tX >0) 
=■©20 RETURN 
5000 LET T$ = '-*fl" 
6010 LET Y=Y+IY<20Ji 
&02© RETURN 
^000 LET T $ = ■*£" 
,-'01 LET Y =Y - ( Y > > 
702© RETURN 
3O00 LET T#»"V 
3010 LET X=X+(X<31) 
=020 RETURN 
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8500 REM DEFINE CHARACTERS 
c-510 DATA 66, 90, 126,50 . 126 , 153 ,£ 
6. 36 

S520 DATA 129,155,lS6,50,l£6 l i55 
= 1-53 , 129 
353© DhTR 0, 126,60,55,56,60, 126, 

354.0 DATA 15, 16, 146,254 ,206, 254- 

-■^•4. , 130 

3t>50 DRTR 130,254,254,250,254,14 

5,16,16 

?560 DRTR 0,126,60,236,236,60,12 

& i 

3570 DRTR 1,3,7,15,31,63,227,255 
35SB DRTR 12§,1&2,224 ,240,245,55 

4- , £55 

5590 DRTR 255, 127 ,53,31, 15,7,3, X 

3&0g DRTR 255,254,252,24S,,240,2£ 

8610 DRTR 0,0,0,24,24,0,0,0 

3515 RESTORE 

3520 FOR d=97 TO 107 

3525 FOR e=0 TO 7 

5530 RERD n: POKE USR CHR$ d+e,n 

334 & SEXT £.- NEXT d 

3550 RETURN „ „ 

5660 DRTR , -1 , -2 , -1 , 1 , 1 i 1 , * > © 

,1,1,1,1,0,-2,0,1. ( 1 J 1..0.--1,1,0., - 

3570 DRTR "YELLOW" , "CYAN" , "GREEN 
*', "MAGENTA".. "RED" , "BLUE", "BLACK 1 
3000 REM HEADINGS 
5010 RANDOMIZE RND #65535 

5020 let H*=-* # # k s h m * # * 

B -*j t*i '^ yi w m ' ■ ' 

3030 INK 1: PAPER 5: BORDER 1". C 

3S40 PRINT H*(2 TO 31), RT 0,0-1 a 
5050 FOR X=l TO 11: PRINT OVER 1 
: TRB 31,"*S*(": NEXT X 
9060 PRINT AT 21,0; H$< TO 32." 
9070 PRINT AT 10, 10; BRIGHT l.J r 
LR5H 1; "TRRANTULR" 

3330 LET m$="You are in a darK p 
it about the size of a football 
field fighting for your life as a 
•n^t the dreaded tarantulas. The 
tarantulas slide down the side o 
f the pit in search of food, you 
»,ust fight off these ravenous be 
asts if you value your life. 
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(090 
•Si th 

i « r»o 
red 
he c 
as . *" 

i!00 

on 
don ' 

>ear 
deer 
'110 



LET m$=h>*-!-" You are equipea 
only a torch, a Laser and y 
ve around in a Lightly artse 
tanfc which is no match for 
rushing Jaws of the tarantu 

LET m$=m$ + " Your weapons ru 
tarantula juice and if they 
t get enough they beqin to 
down and their range slowlu 
eases . '- 
LET »$=*• 
"+ffl$+" 



31, 



„^ P^^ INK 0, PAPER 5;RT 19 
A J. S? ES S " e TO EN£ > INSTRUCTION? 
= P'kED UP ' ■'■ ' ° r PSE 3 5 fiNV KEV T ° 
^■125 PAUSE 500 
^fl? t E°i,fcf4, TS LE *^ M$-27: PRINT 

THEN GO TO 31S0 
9150 PAUSE 10: NEXT L 

1 zl B BDRl: ' ER * : pflp ^R Si bright 

AT 5,2," "USE KEYS 5 TO 
YOUR TANK . M ' ' ' "USE 
LIGHT YOUR TORCH" ''"U 
' TO FIRE . " 

d*l21,32J: DTM Stl5,2> 
S=7; LET r=S ,'1.5 + 1 



5170 PRINT 
B TO HOUE 
KEY ' 1 ' TO 
5E KEY '2' 
3130 DIM 
3190 LET 



iik=:00 LET X=INT IRND*32> : LET y=3 

NT tRND*21> 

351© LET SCOre=0: LET Lives=3: L 

t:T n b =0 

5220 LET rK=7; LET t$="fi" 

5330 LET cn=n 

5240 LET I ev=.05: LET p=0 

324-5 GO SUB 9250: INPUT " Press 

ENTER when uou ars ready", r$: RE 

TURN 

3250 FOP 2=1 TO 15 

3250 LET SX=INT t RND*3£> +1 : LET 

sy=INT (RND*21"I fl: LET O =RND 

3270 IF o<0.5 THEN LET Sf.Z, 

LET S (z j £> =£0* (RND > .5? +1 
9-3S0 IP o>®.& THEN LET s (2,2)=sy 

LET S Cz , 13 =31* ( RND> .53+1 
5290 NEXT Z : LET n =n b 
3300 RETURN 



Z , 1* =SK 
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Jungle Job 



This is a two-stage challenge from Andrew 
Sweet Land end Martin Jones. In the first 
stage, you have to guide your canoe down a 
fast-flowing river. There are a number of 
rocks blocking your way, and you must 
avoid them. If you hit a rock, a man- 
eating fish tor a feint computer version 
of one] wiLL leap out of the water to 
consume you . 

In the second stage, you'll find yourself 
on a dirt roadway like this: 






tttt* 

if fit 

tttft 
tttt* 
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tt 
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Your car has no brakes, so working your 
way around the track wilL call on all your 
driving ski 11. 
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Use the following keys to control your 
boat and your car: 

Gl - to move up 

A - to move down 

- to move right 

P - to move left 



1 REM ***UUNG1_E UOB*** 

® Ma .^-i=L Jo *H & find raw Surge t 

g REN tFlSODE I 

f BSLS !? 9*Bi; LET ii=3 

d- Puke S36SS.0 

5 FOR t-i TO ' 3 ■ RORnFc 0L4 
GHT 1; PRPER 5; %HK 7 CL-, 

. 1© J~Dft / =14. to £2- pPiMT s 
Q.: PRPER 1,, NMXT f ^ r% — '- " 

15 HRJNT fci; fll'0 J0 , PRPER 1 _. , , 



and 



BRT 

BRI 



i=:S PRINT HT 3,0 



BRIGHT x, INK 

i i4Ui 

^ ? S „L OR r = iS TO 13. PRINT BPIGH 

! f^I * - s; _PSPER 3,.; NEXT f 

k 2r^..P5^ H r «"•" =-*a&; BRIGHT i, in 

K o., DE'.hT £.£9: 'FG = ' 

ri 5 u- PR ? NT HT f*p; paper i: in 

K 6;"Hi";flT f ,p+10: "HI" ■ NEXT f 

a p ? 2 \ 4 Z * ? T a ' R ND * s B ' IN * e '; papE 

R 1 . HI 

BO LET x=17: LET y =0 



y.i 



t 



BE IF y ■; =2S THEN IF RTTR 
— 14- UK Ri ;K IX , ij-fi; =1-4 GH FiTTTH 
* J Mt a -. = i?— THEN GO SUB 13© 

70 LET y = y + 1 

S@ IF lfiKEY$ = "q" THEN IF (XUS 
?^ .y<23i THEN IF RTTR fs-I.yJ-; 
> 1 1 HND RTTR IX -1 , y +l) <> 14. fiN D R 
J FR (x -1 , y 4-3.) { >14- TH pt -' DDTr.iT err 
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83 IF INKEY$ = "3 " THEN IF Ex 420 
AND U <23J THEN IF RTTR ix-j-1.. yl < 
> 1 4- THEN IF 8TTR 1 X + 1 . y *£ J -: :• U T 
HEN If RTTR EX+litf+Sj i > X4 intfJ P 
RINT AT X,y, FhPER 1; INK 7.;" 
"■ LET x=X+l 

85 IF INKEY$="Q" AND y IBS 
u et y = y - . 5 

86 OUT 254 t 0i OUT 254j 1= 



1G : NE 



FVT -T 



GU Tu 



.05 



THEN 

if y 



INK 

,—. m 

0- : 



90 FOR 2=1 TO 
=30 THEN NEXT t 
35 GO TO 55 

100 REM END OF EPIbOi^E I 

105 PRINT AT X,y; PHPER 1, 
~-;"P,B": FOR f=5S TO 60: FOR 
TO 32: OUT £54-,,gti&: DUT 254 
NEXT g : NEXT f ' 

IIS GO TO 5©S 

1213 REM UOOPSi 

13G print hT x.y; PRPES i; iNK 
7; "JK" : FOR f =0 TO 50: OUT 254 , 1 
6- OUT 254- -0; NEXT f. PRINT AT X 
+l,y+l; PRPER 1; INK 4; "CC' = ;hT >l 
-l^U-t-l; INK 7,"LH" : LET L i = L i - 1 : 

IF Li=0 THEN GO TO ESO0 

140 FOR r=l TO 5O0: NEXT C : ^O 
TO 5 

5S0 REN EPISODE II_ 

50S C!_S : PRPER 1: INK 4: CLs : 

FOR .''=0 TO SI: PRI NT ' ' N N NNN NH NN 
N N N N N N N N N N N N N N N N N N N N N N N ' ' N EXT f 

510 FOR f=-50 TO 50: EEEk -01, f 
■ NEXT f 

515 FOR f =1 TO 3 



INK 1 ; RT 

" : NEXT f 
520 FOR / =S TO 6. 
, FfiPtR 4. INK X. 
" ; RT f .28; " 
525 FOR f =7 TO 12 
3; PRPER 4; INK 1 ; 
" : NEXT f 
530 FOR f =3 TO 4. 
; PRPER 4 ; INK 1 ; " 
T f 

535 hOR F=*S TO It;: 
_: pp.?ER Aj INK 1; " 
" • NEXT f 
540 FOR ' I =10 TO l'S : 
1; PRPER 4.. INK 1, " 



PRINT PRPER 4 



NEXT f 

PRINT RT f ,2 
■' ; RT f , 23; 



PRINT AT 

PRINT R~ 



r , 23 

HEX 



3 



PR IN i RT 

■' : NEXT 
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545 FOR f =15 TO 17: PRINT "R" 
11; PAPER 4; INK 1." 
AT f . 25; " " : NEXT f 

550 FOR f=I3 TO 20: PRINT AT f , 
3; PAPER 4; INK l;" "J AT 

f , 2bj " " : NEXT f 

5S5 FOR f=13 TO IS: PRINT AT f, 
20; PAPER 4; INK 1;" ' ; AT f . 27 
; " " : NE;-'_r_ f _ 

5££ PRI!'ii RHPLR 41 ir-i^v i. .41 .£ . 2 
0; "' i! ; AT 2.. 24; "" "i RT 3.23; " 



"rftt S.20: ■ " ; AT 3,2; ' J ; At 3,8 

";flT 11,S2;" ";RT 12,21,=' " ; RT 
13,23,'" ';AT 13,30;" " 

565 PRINT PAPER 4.; INK 1, RT 14, 
13;" " ; RT 14,^3;" " ; RT 14,=c; " 

" ; HT ic .10; ■' ";AT 13.21;" - ; H 
T Ifc.Re," ";fiT 17,4;" "' : RT 17,9; 
" ; RT 18.11;'" ",RT 13,25;" "; 
AT 13.2," ,: ;RT 13,11;" " ; RT 12,2 
5; " " 

570 LET X $ = " " : LET X =2: LET y =0 
: LET d$="G" 

580 IF X=(18 RND y=31; OR (X=19 
AND U=31; OR (X=£3 RND y=31J TH 

EN GO TO 7030 

581 IF ATTR (X,Ui=12 THEN GO TO 
800 

583 PRINT AT H . U ; PAPER 4; INK 
0; d £ 

585 OUT 254 , : OUT 254, 18 

530 IF INKEV $ = " O " THEN LET x $ = " 
O- " . LET d$ = "0" 

60© IF INK£Yt="3" THEN LET X$ = 1J 
3 " : LET d$ = "P" 

610 IF INKEY$^"q" THEN LET X!$ = " 
q" : LET d$="R" 

620 IF 1NKEY$ = :, P" THEN LET X$ = i5 
F" ■ i-=- * _d5 = "u'" 

&3S PRINT A i X . s 4 ; PRF^R -4 ; INK 
0, ' T 

640 IF X*="G" THEN LET y=y-l 

650 IF x$="p" THEN LET y=y+l 

65G IF x$="3" THEM Li^T X=X+X 

670 IF X*="q" THEN LET X=X-1 

6S0 GO TO 580 

700 GO TO 300 

800 REM DQOP5J 
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pig print HIT Y- . u ; INK 2: FLRSH 
ij ■'£-■■ ; FLfiSH 0; fit x-1, w. : HfiPER 4 
; ink' s;"l.M".- for f =G TU SS. OUT 

' 2^i .16": OUT 2S4 . 0; NEXT f : i_=T 

t i = i i — 1 ; IF I i > S THEN i~uP r =rf3 TD 
50e7 NEXT r; GO TO S©3 
Sas IF li <=0 THEN GU TU S00S- 

7Q00 REM SUCCESS.' ? 

7010 BORDER 0: PRPER 0: INK 7- & 

LS ; PRINT RT 1G . ©: "CONGRfiTULRTI 

ONS !" ; RT 12.0: "YDU HfivE BERTEN Y 

OUR WRY THRQUGH";RT 13, 10.; "Tilt U 

UNCLE! .' " 

7020 FDR f=0 TO 30. BEEP .01, f : 

BEEP .01,-f: NEXT f 

7030 GO TO 30SO 

7-04-0 STOP 

S0SO REM FRILURE! • 

3010 RESTORE BORDER 0: PfiPcR 

: INK 7: CL5 „^„ 

3020 PRINT RT 10-1; "Hfi; HP! Ffl^L 

1ST' Y O U ' U E U 5 E D U R E U E RY H H N C 

E TH3T I GRUE YOU * *' 

S030 FOR f=l TO 12: REhD 3 .. b : BE 

EP a . b: NEXT f 

8040 DRTfi .5;-5,.E,-5,.5 J 0, .5,0, 
,5,2, .5 = 2, .5.5, .5,10, . S , 1 -• , .5,23 
, .5,25,2, -20 

S0B0 PRINT RT IS . ." "WuULD YOU 1_I 

KE ANOTHER GO? (Y/NJ '* 

S360 IF IHKEY6^"y" THEN LET t i =3 
GO TO 5 

307S IF INKEY£="n" THEN PRINi U§ 

R 

508£ GO TO -3 0ii3 

S0G0 STOP 

399'= STOP 

9 S S R E H U D G DRTH 

9001 RESTORE '3S00 : FUR f =0 TO 15 

9: RERD =: POKE USR " 5 " * f , £ : NEX 

9010 DRTfi . Q , 1 , 1 , 4S,y5 , i3 .-■ , c3 

3 2S DflTfi O . . 192 , i-B2> 134- , 13 1 , 25 

5,254- 

9030 DRTR 240 , 56 , 1SS , =5i; , 124 , £3 , 

6 ,4 

904G DRTR S.0,S,3, 1= . 2.S , 31 , 31 

SaSB DRTR . , e* . 1S2 . 24 , 240 .243 , 

243 

9050 DRTR 31,31,15,15,3,0,0,0 



9070 


DRTR 


0, 




90S0 


DRTR 


2090 


DRTR 


240 




9100 


DRTR 


9110 


DRTfi 






= iavi 


uni n 


9130 


DRTR 


914© 


C*flTfi 







9150 


DRTR 


S . 




y ISO 


DRTR 


, 24 




217S 


DRTH 


9 , 




SISii 


dr ; h 


, 90 




9190 


DflTfi 


9200 


DRTR 


9210 


RETU 



243 , 243 , is4S , 240 , 192 , , 

0,0,0, 1,3,7,31,33 
0,0,0,192, 132 , 224 , 240 , 

3,24, 43,56 .23 . 14 ,7 ,2 

0,12.6.14, 23 , 36 . 112 . 64 
, £l?4 , 170 , 233 ,0,0,0)0 
0,2^4.. 142,234 ,0.0 ,0 ,0 
24 , 60, 126 , 6S , 24 .. 24 , 60 , 

3 , £36 , 63 i 255 , 255 .. S3 « 23 

90 , 225 f 23 , 2-5- , 90 , 126 , 90 

24 , =>t> , lire , '=»t3 , £i-,yi3., 126 

0,6, 70 ,0 ,0,4S ,248,254 
0,0,3,24,24,0,0,0' 
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Dodge 



In this fast-moving game of Logic and 
skilL, you are heavily disguised as an 
asterisk. You have to avoid thB VBB' s 
(Vicious Black Blobs) which appear at 
random around you to terrorise and trap 
you. 

As you'll see when you run DODGE, you must 
enter a 'level of difficulty 1 . You need to 
enter a number between 1 and 100, with the 
higher numbers representing easier games. 
LeveL 100 is only for rea L experts. 

You'll have to keep moving to ensure you 
are not trapped by the VBB's. Use the 
arrow keys to move around. 



as INPUT 



Use CUIJ~S \0f k.0<£$- Id s? 
Input Di f f i cu Lty 
litricKyJ - a && C €■ &*> y .* ;. 



30 BORDER 4-: LET X=IS: LET « =2 

5: LET S=0: LET = =53 

4-0 PRINT " " ; POKE £3635,255 

S3 IF SCREENS £x = yj="_-- ThfEN G 

O TO 150 

S3 PRINT PT .X,y, ="*■■; LET ^=S+I 

70 PRINT PT X+1NT I RND f 3.) -3 ,. y * 

INT SRND*3)-1; INUERSE 1;"„" 

80 PHUSE p 

90 if cor>.F j.fAH^yjtfZtt rtR mrur _r 

N'KEYS > 56 THEN GO TO 4-0 

10B LET B =CODE JNK£V^ 

IIS IF 3=53 AND M>B TriEN LET y = 

y-l 

120 IF 3 =54- PNl> U<£2 THEN LET 3j 
= X+1 

130 IF a =55 PHF> .X:>£i T.4EW LET X = 
* -i 

14-0 IF a =55 PMT- y;3i3 T.HEM X.EX y 
=y +1 
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150 GO TO 4-fi 
1S0 PRIMT 

3 . FPOSE 533 
.HY RGhIjM ,: ,55. 



"g.NTEX TO J= 
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Duel Cabbageway 



The fiendish mind 
thought up this s 
[and its 'witty 1 ti 
game is to plant c 
point for each cabb 
10 if you attempt 
top of a house, 
deducted from your 
next to a house or 
you it was strange. 



of Neal CavaLier-Smith 
trange LittLe program 
tie) . The aim of this 
abbages. You score one 
age you plant, and lose 
to plant a cabbage on 

Three points will be 
score if you plant them 

under a tree. [I told 
] 



LET 



a=S 



3 

4- PRPER 0: INK 7 : BORDER g 

5 PRINT ._"W^^ma=Mh»< i TIfm 




B PRINT 

i £d Ch 

Ot LOSE. 13 

top Of 3 
ow there) 



k= L 



— CRBJ3RGE 



Cabbagt y o u 
i r you pi3 n 

pOSt lit W _j 



Point 

P L 3/1 t 



n e on 



• nd 3 C3bt39fii i/ yo 
a hDt>se - (fcetio.re 
•under a tree*" 

5 '■• ■ llt * =6?: LE 



u plant thesby 

f terraces? or 
10 LET a $ = :J 1 

T h=0 

20 LVJ.H b$!li£,Ji:; 
30 LET C$=' 
50 ruR x=l Tu 12 
S© LET C$=c£+" " 
70- LET b$(s)=L$+a$ 
tf0 NEXT X 
30 LET y=13 
10S LlT x= tKNDsiS+lJ 
101 PRINT RT 20. 22; FU 

a RTT ' ' 

11C PR TNT ST £1 , ; PHI) 
120 LET s=SriRMDs2-ii 



l; ;i 3 
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130 ir X > 12 I tii=.r4 LET x -X -1 
14-0 IF X < 1 THEN LET X =X +1 
li5 IF INT x =£ HND tf=lS OR y =10 
THEN PRINT AT a0,4; iNK ii; ".^Bt " 
PRINT RT 21,4; INK 7; " U ; - LE 

T 3=S-2 

14-5 I?= INT X =3 HMD y=14- THEN PR 

INT RT 20,20; INK 4-; "J9e'^J_ P.PINT 

RT 21,20; INK 4; = ^'' . Liii 5=3-3 
150 IF IHKEY$="5" THEN LET V =if - 

1 
1&0 IF I>-(KEVS = "e" THEN LET y=y^ 

170 IF SCREEN* tll^yJ <> THEN 

GO TO 220 ..^.. 

1S0 PRINT RT 11,^ 2WK *-i ^ 

200 GO TO IIS 

2^0 SEEP 1 1 1 - LET fj — n ^~1 . Li 3 .=- — 
£-10- IF h=3 TH£H PRS.ifT ' S€ DT2 = " 
,S FOP x=l TO 10: LEi Z =TRN X: 
?>JEXT X : PRU5E 5tf : RUN 

230 GO TO 110 _ 

Ii59 IF INT X =& RND y = lii OR U=I0 

THEN PRINT RT SS,4; INK 3. ^fti " 
PRINT RT Si, 4-: INK 7; M L,t 

T S =£. -2 
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Ghost Chase 



The ghost is after you. The small playing 
grid has a number of mines (X] on it, and 
you have to try and tempt the ghost to 
come into contact with one of the mines. 
At this point, the ghost will be 
electrocuted. 

The mines also pose a danger to you, so as 
you try to evade the eviL littLe ghost, 
you have to make sure you don't touch 
mines or the ghost. 

Written by Nee I Cavalier-Smith and Graham 
White, this program demonstrates a fairly 
intelligent ghost in action. You certainly 




won't be able to evade it for long. 
You'lL see that the program runs very 
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quickly indeed. If it is too fast for you 
the first few times you run it, insert a 
few dummy FOR/NEXT Loops to slow it down a 
bit. 



1 GO SUB 600 
£ GO SUB 360 
3 LET a=0. LET S=0: LET p =6 : 

5 BORDER 0' PRPER 0: INK "7: C 
LS 

10 LET -3=INT iRNusigi *2 
IS PL D ; 3 S , : D k P U b: 5 , : DRAW 
@ t ^5@; DkP,U -205,@: DRfiiJ 0,-lt>0 
20 LET b = INT !"RND*12) 4-10 
3© Ltzj_ X =£ J l INT fRN^jfcJ.! + 2 
40 LE; y =2 # ( jl NT i R ND si0J ? + 10 
4-13 _ LE t e_ =2 # i INT '' R WD S S "' 3 +S .- LE 
! f »3 * ( 3 N ! ( hNl? s 3 ."■ 1 ±l\c- 

4-4- Ir s = x i_;k e =a uR f = y uw f = b 

4-5 PRINT ST e,f; PAPER 2;**X" 
4-5 IF q=F THrN QQ TO *9 
4.~ LET o =p ■ FOP z =0 TO ~? -& ■ GO 
TO 4-5 : NEXT z 



^5_ *-J r * 



THEN Li 



PRINT HI 



y ; 



INK 



y=23 



$ IS 



O : Lt ! V = X : LEl W = y 

3 3 R3M OHR $ s'I56) 'i5- a u s e r 
-3 s fa n sd aian 

30 PRINT ST s,fc; INK S; CHP$ 14- 



&5 REfj uHRjiiiiJ is a 

dsHns d_ 3 H oil 

?c LSI a = 3 — i .k < a ."! + ( x .• a 5 

S L ET b = b - ( y < b i + i y > b > 



user 



3® >_ t ; 



/t A T 



2 * ( INK EY $='5") -2* il 



35 LE J j< ~. : ( i-i: * ix ii j —Si tii >c.'0.i 

IS0 LET y =y +2* f INKEy$="5"J -2* f X 
NKEY £="5^ 5 

105 LET m =y -f-2 * ( y -: t?i -2s_£x >29J 

lie PR int PT v , m ; " " i ffi c , 4; ' 

1 IS Ir -i =" RND fa = y THEN C-O TO 4- 

120 IF 3 CREEN $ f a ,- b i = " X " THEN G 



13S5 ±r sCRcEN* 



-• y I = 



THEN G 
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14-0 GO TO 4-9 

-.00 PRIMT RT a* fa; FLASH 1;CHR$ 



2SS REH CHR * C 1*5; i 5 a os e r 
TO iS STEP 4- 



e f i n-Ld_F : -;F 



^*, ^ .'t -^- ITT ^^ ^ r . _i ^ -^?- *"3i i <i 'l EC 

cli E?El lZ *- a - J ?I* fc.* *!• ,i ^Ic 

_2if pp| h jf l*~^^ s - i2l - ; pfiPER *> ~ LB 

2g 1 § *' £.R3NT "" f=*T i2;3, PL RSH %} P^P 

Sgfi^GO TO 10 __ ^, 

3©0 r'HiJ'iT Hi 25 j '& s FLW»3f1 -i- # -">• 

3Ii! FOR d=20 TO 1 S > cP -1 

3 1 1 SEEP d .-"-300 , £'5 

312 NEXT d 

315 PRiNT PIT x f y » ' 

L'lD LET psp-1: XF P=E> THfN GO T 

D EOS 

t !-. r* .-■ .-. -r ■-[ 1 pi 

— 29 Pi^'IHi Hi x * y ; Fi_ft2&rt -i; ?»r 

4-10 FOR d = l TO' 10 _ __ 

4-11 SEEP = 01,- INT L'RND*tti3J -&"£> 

2 15 PRINT~fiT x,y;*' ' : PRINT AT 

41© LET f>=^-i: XF P=0 THEN C-O T 
A = , Q l 5 : 

4-fi© ©O TO IS 

500 PhPFR i; PLRSH 3L; p*- s _ _ 

* I-* ! Xi£ j J.O-1 n 4_ r">; 

gi= FOR N = 4-0 TO -30 sTcP - a 

§17 NEXT N 

530 FOR d=i TO 300: NEXT d 

S 3 E PPIP £ R O .' CL ~> 

rri.Tv t =■ Ik m --- -^i-ipn ! ?T K^=^ 

t^r ii. t* -L j rj j *i ^ i n d ■* i Iti ) *> S3 — * — _ 

550 Pf^INT R~r S , 10; PSfck .-3 ; "HIG 

h SCOSF ":hs;PT 10,0; PPP£P_& ; X 

NK 0; PRESS ANY KEY FOR AHuiHER 

f^ •""£ ' "" 

~5S0 LET_g* = XNKEV5 : IP PJ$ = " ' THE 

r i t_. Q : Q 5 C- kT 1 

ESS LET p=S: LET S =0 

5y9 Go TO 5 

S0O POP n =0 TO 7 

S10 kchD <3 

530 NEXT n 



130 



_630 DhTR 25,t.2,i£,I07,I£7,i27,l 

64-0 FOR n =0 TO ? 

650 RERD d • POKir U»R " b " +D ^ d 

56 NEXT n_ __ _ . 

& ."0 L-Fi I 1-i 14- iT' j S3 .- k> / i'dS / k3, r 4"' J *3 '" ' 


&S0 FOR n =0 TO ~? 

5S0 wEPD d : POKE Ur-P "jb " +r> ,, d 

730 NEXT n 

710 DhTS 6,2S ,■ S ,- 52 ,-5,-5,20,34- 

,'20 HE • URN 

300 BORDER : PPPER 43 : J.Nfs f : C 



FLRSH 1 



S0E PRINT TfiS E; INK S, 
. " O h O 5 T O H R S E 

SIS PRINT " ' ,: Yol' have to move y 
ovr man ("; XNK 5; CHR$ 1S6, INK 
T;' - :: arovnd the screen to enti 
ce the ghost ( = ' ; INK c- ,- oHR ^ 14-4- ,- 

XNK 7^ '-'- 1 which i £ ch3Sing_you ; 

to run into the fc-orabs("; PhPER 
2; ,T X"; PAPER @s;"J«But be carefu 
t you don't run into the bomb or 

1st the ghost cstch you. V c u ha 
v e 5 t i v e s , ^ 

520 "PRINT" ; '"'PRESS KEY'S 
,3"" TO i-iQUE IN 
ON KEY" 5 

.3---^- ."a r^ r-p T b '~*~ Fi 

■__f b3 *^» t— - rt . -^ I v -■ i j — 

fceu to fontinue 
54-0 LET e=5 = INKEV'S: Ir IMKEVJ = 
THEN GO TO 
550 RETURN 



"5" •■ _" •* 
iCTION SHOWN 

FTZ.S.-S.. any 



"!-■-> =^ tS 
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Frog on a Log 



Frog on a Log is another great program 
from MaLcolm Young. He says he enjoyed 
creating this program as with it he had 
broken new ground in programming 
techniques. "For example," he wrote, "I 
hBve been experimenting with machine code 
routines and produced a scroll left 
routine of my own... The computer cannot 
usually recogni ze user-defi ned graphics 
using SCREENS, and most people have got 
around this by using the ATTR function. 

"I found that by pointing the system 
variables CHARS to the UDG memory, SCREEN$ 
can operate in the normal way , 8 1 though 
you must use the Letters that the 
character represents. I have used this 
technique in my program from lines 3DD to 
490. This technique has the advantage of 
recognising any UDG characters, including 
non-f Lashing, non-bright black ones. 

"I have made the program so it can be 
typed into the 16K model as well as the 
48K model without any modifications, i.e. 
Line 30 CLEAR USR »2"-43 for the machine 

code. " 

The object of Malcolm's program is to 
catch as many insects as possible using 
keys I and P for Left and right, and CAPS 
SHIFT to make the frog jump. You must 
avoid going off the screen or faLLing off 
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the Log and encountering the spider, as 
this wiLL resuLt in a Loss of life. Each 
fLy starts off with 200 energy units and 
this sLowLy decreases to zero. When it 
reaches zero, the frog starves and dies. 

Butterflies may appear, and if caught are 
worth 10 energy points plus 50 bonus 
points. You have onLy a 50% chance of 
catching a butterfly, no matter how 
accurate you are in your jump. 

You'll find this program quite addictive 
and you may wish to modify it to include a 
skill level option, which changes the size 
and number of the Logs. You should type 
the program in and then save it by using 
SAVE "frog" LINE 5000. 



a= b=* c=« d=if. e =m ?=■** 



2 REM 

gh 

10 REM frog on a tog 

£0 DEF FN r (X) = INT fRND-fX.l +1 

30 CS_EffR U3R "a"-4-3 

.£& SO- =.L*3 Sl£S©$$,' &EH &«£$ 

45 GD BUB 3110 






50 SO BUB &G&&; f?EM Jii?Uy 

-?-& St& TS> 5$&£$ 

70 POKE £3606 j 0. POKE 23607, 6E 

B& PRINT {=fT 0^0; BRIGHT 1; INK 
7; PftPEfl 2; "SCORE.- ";£f;TflB 
cWEwev -■ ";£b; T&&. 24-;. "FP, &S& . 
og 

9£l RETURN 

200 REM read Keyboard 
L.ET ft =f^EEK 23553 
LET X -X + t ft =30.1 - i ft =73.1 
IF Mil OR X>31 THEN GO 
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TO S 



ZA& LET K = 2tt 6S5-73 

14-3 CO TO J* =254. OR jp.1 *df.+150 
130 PRINT RT y,x-l;" jfr " 
230 IF NOT POINT {.K*S,31.l THEN 
S£t TO 4-S& 
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1B5 RETURN 

2 70 REii JfiM»f* 

iB0 LET jp=l; JL^r tp*30: LETT tSS- 

= x.2i. print rt 'i.x-i;- 

ISift PO:KE 2J&S6,. U(; POKE 23B0.7^.h 

200 F~ap t =0 to i 

£iS SD" Td (y=3?.U3SO^£S5 
2£'£i IF SCREEN* * V ^-¥3 .^ ** J " THEN & 
£?■ T O- 300. 

£'3 1? PRINT <?T y -J ,;»:; "b" Ri"3> ,/p^ 
. RT u ,- x ; " c ' :- RT y -*l ,■ >! *■ " & " > s*T tf +2 , 
:c;",s" rnt> i'jp.-ifif bho y;ifi.'.- beep 

- 035. , bp 

a a,«n hext \ 

2S& LET hp=bp + Jp 

2 70 LET Jp «tJ p -2 * r y. -; 3J + i y Alb.' 

;^£».£>> pCttCE 23*.'i?.B. ,. S>. .- POKE 23B£*-7 ,. &£'- 

2G0 .RETL«S.H 

3(50 LET && = =^£RE£N$ IV, X> 

310 ZF 3$ = "i" OR a* = " J" THEN L.E 
T Sr= iy -i> f3^M -2 : LET j^l't TO & + 
£.)=■' " : GO TO 3Sa 

330 IF a*="9" OR a$ = "h ' THEN Lt 
T b=0: LET en =&n -J-IIiS .- LET =. c =£■- E +'- 1 - 
i? ; • GO TO 350 

^•3ff f=*0^ Z-20 TO "Si?; BEfcP ,05., -3 
SEEP . 1,-Z-.S: fOT Z 

34V0 LET ?ft-5=i-f&5-2- ^EELiS^k ® 
E&P> 2,-jff; J^P WOT #£&& THEN GO i 

3*5 let en=2£rer: go to &&o& 

350 LET £C=;C+10: LET ..*f=-1 

3©.* SEEP ,5,-1^ 

370 GO SUB 70 

350 RETURN ,. „ _„„. 

4&& if €&&££&$ as,x.' ^ E' **$c*» 

GO TO -£50 

i!0 GO SUB 30S& „ 

4^20 P&ZMT ST '>-£,:*; 2 ?**> '>.->&«- 

^4-30 PRINT RT 16,X-I,"aa3";flT 17 
,*J "b" 

4-4-0 RETURN 

A5E? BEEP ,05,-5 . 

4B2» PRINT RT i&,:^; ^S7 i7.-.</ 

4.7© BEEP ,05, -S . .. 

4S0 PRINT RT 17jX; " *« T £ S '?f. 
IS 1 *: BE£P -1,-5: PRINT RT IS,*, 
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■i90 GO TO 330 

300 REM wain routine 

520 IF RND J , 05 THEN GO TO 56© 

530 LET S. t =32* \TH r l"5.! +S.' -I 

5*0 LET i $ (f t TO St+i)="#" 

560 PRINT RT 1,0;. INK 1 f i £ 

570 LET i$=i$(3 TO J 

530 LET X =.X -NOT Jp : LET t =U5R m 

' &J?S 5EEP . B&5 , IB 

S-10 G£> 5U& ao© 

52© GO TO INDT t>.> S-4.0-J-B3O 

c.30 LET d=FN t f4-J : LET b=b-l 

b40 LET by =by + Cd=li - Cd=2) : LET 
bX=bX + id =3J - td =4J 

650 LET by=by-thy>15.i + t by il> : L 
&T bX =bx + (bx <0i - (bx >30J 

560 FRJiyrr fTT btf, b.*:V INN flj C*^./E^ 

^; "%^" 

B70 IF NOT b THEN LET fc=fRHD>,9 
J * ifFW r 120J +s.t ; XF fc THEN LET by 
*f« r IIS; *a* LET fc.^ =FW r f3J3.i 

&E*S REN 5?i iJa r 

590 LET S =£ + IRND> . 4-f * ( 15 <X > - C^ > 

700 PRINT INK Q;RT l&^0;q*;RT I 

?10 IF y >15 RND (x =£. OR >:=«. +i.v 

THEN CO TO SI0 

7*20 LET en=en-l 

730 PRINT RT 0„ 19; BRIGHT I; IN 

7'4.0 IF en<0 THEN PRINT PRPER 2, 
3T 8,7; FLR3H 3;"ND Mors Energy.' 
GO SUB 330 
790 GO 5U8 100 
300 GO TO 500 
310 PRINT INK 0; RT 16,s; " " ; ftl 

it,*. f **mgr 

320 FOR Z =0 TO 1 STEP . X 

330 BEEP 2,-1*10; NEXT Z 

34.0 GO SUB 34.0 

350 GO TO 500 

1000 REM score table 

1010 GO SUB 50C10; GO SUB 70 

1020 ir £ C ■! =b£ THEN GO TO 1050 

1030 jlNPUT "You have the new big 
h score.'"', "Please type in your n 
3ise . "; line n$ 

1-34.0 LET bS =SC 
1OS0 DIN 3$ (1.1 

1060 INPUT "Do you want to play 
a -3 a i n 7"; a$ 
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1 70 XF 3$ = "n" OR 3*="N" THEN PC 
KE 23633 , 5S : PRINT RT 20,10; "OK, 

play again soon.".- pause 50: BOR 

DER 7; RfiMDOMIZE USR 4750 

1080 GO SUB S120 

1093 GO TO BO 

5003 REM Title 

5GHO BORDER 5: PAPER 1: INK 4; C 

^.3 : PRINT RT 5,0: 

5020 PRINT TRB 4- ; 



5030 PRINT TRB 

3" 

3040 PRINT TRB 



5350 PRINT TRB 

m m i i 

5l360 PRINT TRB 

IB f 1 

5070 PRINT TRB 



4- 
4- 

4-; 
+ ; ' 
is; 




S0S0 PRINT 
5030 PRINT 
E10S PRINT 



'TRB 6; 
TRB 5; " 
TRB 5;*' 

TRB 5; "J 



Ss9 SI 



5113 PRINT 

1 5 
5120 PRINT TRB 5; 



I 111 

5130 PRINT TRB 22; "I",TflE 2S, "^ 

5135 RESTORE 

514-0 FOR 3=1 TO 10 

5150 READ n . IF n=99 THEN PAUSE 

5: GO TO 5170 

^160 BEEP .15,n 

5170 NEXT 3 

5180 LET .X =PEEK 23730+256*PEEK 2 

j731 

5190 IF X=U5R "3"-l THEM RUN 

5 2O0 RETURN 

sS00 DRTR 2,5,3,99^2,5,3,99,5,10 

3000 REM SCt display 

3010 BORDER 2: PRPER 5: INK 5; C 



3020 GO SUB 70 

304-3 PRINT PRPER 3; INK 

0:TAB 31:" ";TflB 31;*' " 

3050 PRINT PRPER 1;TRB 31;" 

3 31"" '* 

3053' PRPER 3 
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4-; RT 17, 
;TR 



3055 PRINT RT 13,0, 



LET X = 19 



3057 PRINT RT ±9 , 0; " mm ^ ***** ^swhwmbw: 
sprat* *&&»»& sfKwwBo* mmum-- 

3060 PRINT RT 22,0; PRPER 2; INK 
7: BRIGHT l; " HIGH SCORE ";hs;" 
"; n$ 

2070 LET y=17: 

30S0 LET JP =0 

3O90 LET dS=20 

3100 RETURN 

5110 LET h5=0: LET n$="" 

3120 DIM i * (430) 

3160 LET b=0; LET W =0 

5170 LET n=USR "3 "-776: RRNDOHIZ 

5 n; LET ltH=P£EK 23670; LET hto =P 
EEK 23571; RANDOMIZE 

3130 LET b=B: LET IS =© 

3 190 LET £ =0 

32S0 LET frog =3 

3213 LET en =20O 

3220 LET 5 C =0 

3243 DIM q$(32J 

3300 RETURN 

9S00 REM define graphics 
9010 RESTORE 9000 
3020 FOR C=l TO 13: RERD C$ 
9030 FOR b=0 TO 7: RERD n 
9040 POKE USR L$ + b,Ti 
3350 NEXT fa; HEXT C 
3060 LET J» C =USR "3" -4-2 
3070 FOR a*=i»C TO SSC-J-*-! 
9030 RERD byte: POKE m , by t e 
9090 NEXT Hi 
3193 RETURN 

3195 DRTR " 3 " , , , , , , , ,■ 
9200 DRTR "fe" ,36, 126,63, 153, 126, 
156,63,99: REM JTog 

3210 DRTR " C" , 165,231 ,66, 123., 153 
,153,126,60; REM 1/2 juJ&ping frog 
3220 DRTR "d", 126,126,60,90, 129, 
195,35,195; REM isZ .jumping frog 
9230 DRTR "£", 170,85, 170,85,170, 
35 , 173, 65 

QS43 DRTR " f ". 173,65, 170, 35,0.. 0, 
3 0: REM Log (bOttOfllJ 

3253 DRTR " g " , 17 , 109 , 36 , 133 ,- 170 , 
SS ,103,17; REM 1 ./2 fauUerfi y 
3260 DRTR "h" , 16, 106,212, 130, 170 

212,2 36,16; REM 1/2 butterfly 
3270 DRTR "i ", 1 ,2,4,73,253,55 , 35 
, 73: REM 3. HS3 C t 
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3260 ERTR "j'\224 J ,16.,112 J ,126,85.. 

0^0,0; REM insect tail 

3300 DfiTR "I", 0/34- , S3 » 159, 155 , IT 

1,144,30: REM Spider 

3310 DATA "J»",0,5S,202,£42 ; 93,21 

®., 1© , 10: REM spider 

3320 REM b* a chine code scroll lef 

3330 DRTfi 32,32,80,62/3,50,129,9 

2j 6, S, 197- ,229,126 ,24-5,34-, 93 ,35 

9340 DflTfi 1,31 , 0,237, 175 ,24-1, IB , 

225, 35, 1Q3 , 16,237 , 167, 17 

3350 DfiTfi 224,7,237,S2,5S,129,9£ 

,51,32,220,201 
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LEISURE LINES 
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Card Pairs 



This game - written by Raymond Blake - is 
based on Pangolines, in which you have to 
try to pick pairs of cards from a pack of 
20 until no cards are left. The aim is to 
do this in as few moves as possible. 

When prompted, enter the coordinates of 
the card to be turned, entering the coLumn 
number first. The chosen card will than be 
turned over. You do this again, so two 
cards are showing. If the two cards Bre 
the same, they are removed. If not, they 
are turned face down again. The game ends 
when there are no cards left, at which 
point the score will be given. The Lower 
the score the better. Raymond Blake 
challenges you to beat his best score of 
17 turns. 



I_5 



'3 SORS>EfR & 



j>£jpe:r ss . Ti 



50 DIM a l~4-,5> : RRMDOHXZS: 
50 i_£T a$ = J lii213141Si>ii2i^324.i£ 
531323334-354-14-24-34-4-4.5" 
8S FOR i =1 TO 1© 
9@ FOR J=X TO 2 
100 i-£T L =LEM 3$: L.ETT b=INT fRM 
D* t -*£) SS*1 : i_£T jsjjj == S £ s? jjj£3 bri. 1 
120 LET x =*>SL. h>Ml> - s_^T *i=Krni_ 
b $ i 2 1 

130 i_5T e$=a*< TO b-i> -*- is$ *:b+2 

TO I RND fo<>l-l.» _ 

150 i_£T a ix , y? =i : HEXT J: NEXT 

£ 

2©0 LET &c=^ 

210 FOR i =1 TO 5; PRINT BT 0,4-S 
i — 1 ; XMK 2 ' e Xt4 s J£f^.'^iz 1 J- SR XSH ? 1 i 
i : HESff i 
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T 



g20 FOR „* =5i? TO 3. PSIHT HT .; ?Sf 
3,0; INK 2; INVERSE, i; " b^l\£ni 1; 
J+±: FOR i =S TO -t. FOR £ ^2 TO S , 

PRINT PT j^S+K,iU+2; IMS 3; "K 
S" : NEXT *. : BEEP » S3 , 30 ; NEXT i ; 

NEXT .; 

33© PR INT PT 3 ,- £ 3 ,- ' TK F f* © V £ r " ; P 

34-0 IF INKEYJ -t > " " THEN GO TO 3* 







3S0 let <i* =xn*;ey* .- xr 

350 PRINT PT S,24-,q$7 BEEP 
>0: LET ql=UflL q$ 
370 IP INKEV$o"" THEN SO TO 37 



q?:"i" OR 

05, 



330 LET q*=XNKEV$: IF q$ ; "£*" OP 

q*>"5" THEN SO TO 330 

330 PR INT ST 3 , SB , q 5 . BEEP . OB , 
h!®; LET q2=U«L q,£ 

4-O0 IF Biqi,q2) ^ ?0 THEN GO TO 4- 
50 

4-10 PRINT PT 10,23; INVERSE I;" 
Try again" 

4-20 BEEP 1,-10 ; PRINT PT S,24-;" 
";PT 10, S3; " 

4-30 GO TO 23^ 

4-50 PRINT PT 6,23;" " - P 

T 8,S4; " 

470 LET Xl = fqi-i)§5+2: LET « I = i 
32 — 1-' 3-4- +2; LtT X -X I - LtT ; i=yl. L 
ET Csqi; LET d =q2 : GO BOB BOO 

4-O0 LET ql=c: LET q2=a 

53S PRINT PT 5,23;"T«jrp c¥£r";a 
T S j 23 ■ *» '« 

54-0^ IF INKEV"*^>-" THEN OO TO B4- 


550 LET q$--Ii>tKFY*- IF &&<**'&*• OR 

q$>'4-" THEN OO TO SSO 

530 PRINT PT 3,24;qs. SEEP .05, 
i=:0: LET pl=UftL q$ 

570 Zf INKEY$ < > ** ' 



5S0 LET q$=INKEV$: IF ^£ 

q*>"5'* THEN SO TO 530 

590 PRINT PT 3,25; ;q5: BEEP .05 
20. LET p2=UHl q* 

BOO z^ s(Pl,?£J-:yr« rHEN SS3 TQ & 
30 

el0 PRINT PT 10,23; INUEPSE ±; *' 
Try eg sin" 
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THEN GO TO 57 
5. ■" OR 



B20 BEEP 1,-10: PRINT PT S 1, 2* i ;" 

=*;HT 10,23; " 
630 GO TO 530 
650 PRINT PT 6,23;" *'.*& 

-w- a m *j . *i ** 

B^Q^LET x2=Spi-l.U5+2. LET y2= » 
P2-I.I 9t4-+2: LET X=x2: LET y=y£-; L 
EH" c=pl: LET d=p2; GO SUB BOG 

538 LET pi^c; LET P2=d 

695 LET = c==£-J-I 



700 IT & fql,q2) <)S»pl,Pi 



THEN 
BEEP 



GO ! O 760 

705 FOR i =0 TO 12 STEP 6 
.i ; i; NEXT £ 

710 FOR i =0 TO 3: PRINT P* xi + i 

,yi;" " ; PT x 2 + 1 , y 2 ; " " : NEXT 

720 LET 3(qI,q2J=0: LET ai>l,p£ 
> =0 

730 LET C=0; r&R i =1 TO 4-: FOR 
J=l TO 5: LET C=C*Sii,j); NEXT J 
: NEXT i 

"?4-0 IF C =0 THEN GO TO SS3 

75© GO TO 300 

760 &BEP , &,-S 

755 FOR f=l TO 2O0; NEXT f; FOR 

i =0 TO 3: PRINT PT x l j-i ,yl; iNK 

i 

770 GO TO 300 

BO0 RESTORE IOOO : FOP I =1 TO £ t 
C j in 3 i PEP£> X 5 : NEXT z 

320 PRINT PT x,y;z$* to Bi;P? x 
+ l,y;z$*4- TO t>* 

S30 PR INT fiT X +2 / y ; 2 * J 7 TO o j ; p 
T x-s-3 ,y ; Z$ i 10 TO 12» 

350 RETURN 

900 lLS 

920 PRINT PT 3,2;"V"cu cUared t 
he table after";flT I0,il;sc;" tu 

f 930 FOR i =1 TO 25. BEEP .-01,i: 
NEXT i : 

G4-0 let 3$-' : Pre£= ar< j 4 ?* e--j *e-f a 
new -5B»e'': PRINT PT 12.2; 
950 FOR i =1 TO uEN =?$-. PPI?iT IN 
K 6;a!Mi>;: J»* a* *i }-:>'* " THEN B 

EEP ■ 03 20 ! 
952 * IF ' a $ V • J =" *' THEN PPUBE 2 
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T 



955 NEXT i 
97£ RUN 
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Sub Search 



In this challenging game from Malcolm 
Young, you hevB to track down and destroy 
a submarine in the shortest possibLe time, 
by employing your fleet in a strategically 
sound manner. 

You control a fleet of warships made up of 
a battle cruiser, two petroL vessels and 
three frigates. Your task is to hunt and 
destroy an enemy submarine which has been 
lurking around the shipping lanes near 
you. Your battle cruiser is equipped with 
a sonar system which rises in pitch as it 
gets closer to the sub . 

Each vesseL can carry only a Limited 

quantity of depth charges. Once they've 
been fired, your ship must return to port. 
Full instructions are within the program. 

IB REM Sub Search 

2B REM © 1983 MalcoLBi Young 

30 REM a=A b=* c=* d=J£ e = * F =t~ 

53 ss 4 h <b- i = ■ J = '- K =v* I =•" & ~l\ n =il 

4.0 DEF FN b(J=£Qfl (FN :'(S..X,S(j. 
, i J J +FN StSyySll^)).! 

50 DEF FN S (3 ,b} =flBS Ca -bJ *BB5 

(a-b) 

50 DEF FN r is.i =JNT iRNDM.' •*-! 

76 DEF FN t f J ,K , l ,M.l = (BBS (J-S. 
> <"?:) * * l=»> 

B© GO SUB 9000. REM define srs 
:-hi C S 

90 GO SUB S000; REM iRStructiO 

100 GO SUB 7000: REM set Up £Cf 

sen 
lis rem v v v y v v v y V V V V V V V V V V V WW 
120 rem move submarine 



145 



I 



130 

14-0 
XS0 
160 
173 
150 
190 
21© 
£20 
3 THE 

230 

> THE 

24-0 

250 

250 

thro 

2*73 

15 , 21 

J ZHK 

5H 0; 

g-FN 
290 

305 
310 

r ce^ 

320 
330 

34-0 

RT 19 

350 

35© 

K ft) ; 

3"© 

3S0 
390 
39S 
4-00 

ER 7; 

410 

s,s;s 

4-20 

£ Lef 
4£.3& 

; LIN 

NK n- 

r,y : G 

4-4-0 

c£P 1 
4.50 



LET 

LET 
LET 
LET 

LET 
LET 
LET 
FOR 

IP 
t- 



sm =F 
£u =s 

Sd = £ 
SX = £ 

Sd »S 
C =1 
FN t 



■J GO TO 
IF FN t £ 
N GO TO 
NEXT C 
REH puy 
PRINT »0 
U' d i C £ . " 

if s fi,a 
; '"So an 3 
3; FLflS 
INK 5; " 
IF 5-U,l 
b f i : PRU 
IF INKEV 
REM dice 

LET nt>=n 

LET d=FN 



N r '5.1 

y + (£« =3.i - 
d + ff.J»=5J - 

y+fsy <1) - 
d+ tsd :13 - 
TO & 

S)! , 5- { C , 1 J 

5000 
sy , £ (c 
5-000 



-(SB =2 J 

- ts-fii =4- 3 

- f s m = t> J 

- t £ >; > 1 9 i 

- f £ y >19J 

- isd >9J 



E-y 



s fc 



2) >S 



e i" ' £ move 

; " Press any >: e y 

) > =0 THEN PRINT 

"; FtT 15 .21; "read 
H 1 ; int fn bn; 

J :> =0 THEN BEEP , 

SE 10 

$ = "■' THEN GO TO 

b+1 

f (2C.1 +10 : LET 



.. 2.> 
, 1) 

to 

AT 
FLR 
1,1 
230 

=FN 

9) 



FOR i =1 TO d 

LET J* =»* I'M <6.1 ■*•! : BEEP ^1 

PRINT AT 13,21; 'VOLS have 

21;CHR$ (151+roJ," Sieves." 
NEXT i 

PRINT BRIGHT 1; FLRSH 1; IN 
PAPER 9;flT 19x21; CHR$ il51+ 

BEEP 1,10: LET n =0 

let n =n * in <&i + 1 



LET p=S (n ,2) 
IF r <0 THEN 
PRINT FLRSH 
AT p,r;d$(n) 
PRINT PRPER 
$ (n> ;"("'; s Cn 



l_ET r =s, in , 1) 
GO TO 3S0 
l; INK n-l; Pflp 

n-1; INK 9;flT 2 
, u ; "*••;:» (n / 2J ; 



PRINT RT 2l,B; "depth charge 

t;'*;s(n,3) 

INPUT RT ©-,©;" Ef> t a r 

E m$: IF Hl$ = "" THEN 

%r, PRPER 5+(n=63;RT 

O TO 330 

LET t =LEN m%: IF I > J» 

-I"©": GO' TO" 4:3t0- 
FOR £=1 TO I 
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SOV9 . " 
PR INT I 

Pyr,d$i 

THEN B 



4-S0 IF »J(C) 0"n" AND Hi $ * C > * a '"£ 
■' ?3ND fllt(c) {>"»" RND KiSfC) <>"e" 
RND m$(cJ <>"d" THEN INPUT FIT 0,0 
, "Invalid en try. Try ayain* ",- i_l 
TOE )!/$": GO TO' 4^4.& 

4-7© IF ff/ *( C? ="d" THEN GO TO 67S 

4-50 NEXT C 

4-90 REH move ship 

500 FOP q=l TO L 

510 PRINT RT p,f} PRPER 5; BRIR 

HT i: INK 0: "F" 

520 BEEP .1,15 

53-cf LET p =P* tB*t<Z'f ="£ ".* - tatSi** - 

n " ) + fp -£0> - fp >20i 



■C6 THEN LET S ( 
PRINT RT 21,0 
loaded.": LET 



535 IF P =20 RND r 
.n,3) =3: BEEP 1,20; 
; "3 Depth Charges 
3 =19 

54-0 LET f =r + Cfflt* (q.» ="l 

"w")f fr<0.i-tr >20> 
550 IF RTTR tp / fJ<&4- 

^000 

550 PRINT RT P,r; PRPER 
c>5.n; OUER l,d$(nJ 
BEEP .1,20 
LET J» =10 -1 

PRINT BRIGHT 1 ; FLASH 
PRPER 9; RT 19 „ 21 ; CHR$ 



' " > - l" BS $ f q J = 
THEN GO TO 
5; INK 



n - cn 

570 

59© PRINT BRIGHT 1; FLASH X'i lii 
K J»; PRPER 9; RT 19,21.;CHR$ il51t 

500 NEXT q 

S10 LET Sin,l)=r; LET £fn,2J=p. 

IF NOT U THEN GO TO B50 

&2© INPUT "Do you want to fire 
s charge'?' 1 ; line i$ 

53(3 IF* i ' $ < > "y -" rtNO i * ; > "fi " Tfi£fi 

INPUT "Fire a depth charge*? "; 
LINE i *; GO TO &30 

&*© IF i$="y" THEN GO TO 570 

5B0 IF J&>0 THEN GO TO 330 

e&0 GO TO 120 

57*0 REN fire depth 

&75 IF SfD,3) (1 THEN 

H I; AT 21.0, "No depth 

f t \ " : GO TO &5© 

680 PRINT RT 2,21; PftRER Si IMX 

£'.; "YELLOW" 

590 FOR 3=1 TO 7, 
P .3,-1; BORDER 5 



charQe 

PRINT FLR5 
charges le 



BORDER 7 
PAUSE S : 



BEE 



700 PRINT FLASH 1; INK 7; PRPER 

3, RT 21,3; "Depth charges ready! 
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710 INPUT "Enter depth, VI TO X 
&■> " ; dp 
"2S IF dp C 1 OR dp>2® THEN JNRUT 
iop , x * is act t c / ranged ry ag^i fs 

" > , dp : &G TO 7£S 

?3© LET dp = INT dp 

74: v? BEEF ,5,. -10: Ci^rP .■&*&& 

750 FOR f=19 TO -dp STEP -1 

7 5S- SEEP . 02 , f 

770 NEXT f 

730 BEEP . S,-10. PAUSE 2E 

730 IF SX=f AND sy=p THEN &EEP 
. o,l: IE Sd=dp THEN GO TO 1000 

300 LET i in ,3.1 =S in ,3} -1 

S10 PRINT FLASH 1; AT 21,0; "MiSS 
sdi ": IF SX=r AND £4=p THEN PRJN 

r AT 21,6; "The sub's- right under 

*-iOi.t ! " 

520 PAUSE 100 

330 PRINT AT 21,0;" 

34-0 GO TO 110 
1000 REM sub destroued 
1S10 SORE>ER 1: PAPER 1: BRIGHT 1 

INK 7 . CL S 
1020 PRINT RT 2, 3; "CONGRATULATIC 
>4S» *' 
1030 PRINT RT *, 3; "You manage to 

destroy the" 
10*0 print RT 5.. 3; "sub in ";nb;' 

rounds . " 
1050 PRINT "That's "; pc /nbjlBB; ' 
« efficiency." 

1S50 INPUT "Would you liKe to pi 
ay again? "; line i$ 
1070 IF i$="y" THEN RUN 
10S0 BORDER 7: PAPER 7: INK 0: E 
RIGHT 0; CLS : STOP 
3000 REN collision 
3S10 BEEP 1,-12 

3020 PRINT RT 21,0; "COLLISION! "; 
3030 IF RTTR Vp , T 3 =4-0 THEN PRINT 

AT 2S,0; FLRSH 1; INK 0; PAPER 
7;s*(n.i.;" has sunKI": LET stn.l! 
= -l 

304-0 IF RTTR fp , f 3 <n*3+n-l THEN 

GO TO 3100 

3050 PRINT RT 20,0; FLRSH 1; INK 

*5; RRPER 7;s*tnj;** has sunAJ".- 
LET stn,l) =-l 
3©50 FOR 3=1 TO O STEP -_-!.* BEEP 

3,3*5-10; NEXT 3 
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3070 PAUSE 100 

3080 PRINT AT 20,0;TRB 31," ";Tfi 

5 31.; " " 

3030 GO TO 110 

3100 LET S=ATTR fp,r.i-4-0 

3110 STOP 

4- 399 REM ttttH'tt + ftHtftttfttl- T 

3B00 rem submarine sttacR 
50S5 IF RND>.7 THEN GO TO 250 
3010 BORDER 2: LET U=l: PRINT AT 

2,21; PAPER 2; INK 7;" RED " 
5020 FDR a =1 TO 7; BORDER 4-. SEE 
P .5,-5; BORDER 2: PAUSE 5: NEXT 



LET p f = ( t 1 
PAPER 5 ; I 

PAPER 5; I 
OO TO 5 



3030 IF RND{0.5 THEN GO TO 5500 

5040 PRINT RT 21.0; INK 7; BRIGH 

T l;s$(c);" under attacK!" 

304-5 PAUSE 50 

5050 LET p =5 

5060 PRINT AT 21,0; PAPER S; FLH 

Shi i; "Press *F' and hope for the 

bes t « " 
5070 FOR t=l TO 2 
50S0 LET tl=FN t l'10.l : 
iSfl64.l -208 
3090 PRINT AT S,20+p; 
NK 1 ; " +" 

3100 LET p=p*fp<10>+l 
5110 PAUSE 10 
5120 PRINT AT S,20+p; 
NK c-tcob) ;d$fd 
5130 PAUSE 10 

514.0 IF INKEY $<.">" f" THEN 
3w0 

3150 FOR i =7 TO 1 STEP -1 
51S0 PLOT 20S,S2; DRfllJ INUERSE 1 
: INK i;pf .4-0 

5170 BEEP .05,3: NEXT i 
3IS0 PLOT 208,62: DRAW INK l.:pf, 
4.0: PAUSE 50 

5190 IF tl=p THEN GO TO 53C0 
3200 PRINT AT £1,0; PAPER 2; INK 

7;" That was good evasive stti 
:n) " 

5210 PAUSE 100: PRINT AT 21,3; "U 
3tch outJAnother torpedo.'": FOR 
3 =1 TO 7 : BEEP . 05 , a : NEXT a 
3220 PAUSE 50.- PRINT AT 2 1,0; TAB 

31; " " 
5330 NEXT t 
524-0 PRINT AT 2© , 0; "Fa Lse Al3f».' 

Damage ";u-l;" Hits" 
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5250 PAUSE 50: PRINT AT 20 ,0; THS 

31; " "; TAB 31 ; " *' 
5350 GO TO 250 
5300 REM hi t 

531© IF U=l THEN PRINT AT 21,0; 
a HIT } - : BEEP , 3 , -5 -• PRU5E 50 : P 
RINT AT £0,6;'The ";s$(cJ;" hai- 
ejected alt it's depth charges- 

- " . LET £(C,3)=0 

5320 IF U=2 THEN PRINT FLASH 1, 

INK 7; PAPER 0; BRIGHT l;fiT 21,-C 

;s*(c);" has been Ids!-" 

533© LET U=U+1: PAUSE 100 

534-0 IF U=2 THEN NEXT I 

5350 PRINT BRIGHT 1 ; AT Si'C,2!,t( 

c.I}; INK 0; Pf^PEFt 5; "F" 

5350 LET St"C,U=-l 

5 3 70 FOR a =1 TO STEP -0 .1 

5353 beep a,a*s-ia 

5330 NEXT a 

34-00 FOR a=l TO 20; BEEP 0,-0025 y 

PIS . NEXT a 

5il0 GO TO 250 

5500 REM sufawar irft in cicst pr&M 

5510 PRINT AT 21,0; FLASH 1; ER I 

GrsT 1; INK 7,"fil£ft! M 

5520 PAUSE 100 

5530 PRINT AT 2l,0;s*(cJ;" has S 

POtted SUb' 1 ' 

5550 PAUSE 100 

5550 GO TO S^e* 

6959 GO TO 9999 

?SS0 REM display 

7010 BORDER 4-. PAPER 5 INK 1 : B 

-IGHT 0: CLS 

Y020 FOR i =0 T Q 19; PRIN T BRIGHT 

i; ■TTTTTTTTTTrmTTTTTT": rem 2 
graphic * f " 
7330 NEXT a 
7040 PLOT 0,15; DRAU 150 . . DRAW 

, 160 

7050 REM mines 

7SS0 LET **=FN r (10) +10 

7070 FOR i =1 TO R) ; LET HsX=FN r fl 

Si ; LET my=FN r (19i ; IF ATTR Csry 

.SX.! >64 THEN PRINT AT m y , iSX ; " *" 

7075 NEXT i 

7 3SB REM Ships 

7S90 FOR a=l TO 5; PRINT AT S(a, 

&} ,£ iMiSLij OUER 1; BRIGHT l; PAP 

ER 7; INK a-l;d*faj ; NEXT a 
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7 100 PRINT AT 0,21; FLASH l;"5Uo 
5EBRCH"; FLASH 0;AT 1,21; "CONDI 
TION";AT 2,21.; PAPER 4-; "GREEN" 
7110 REM periscope 
7120 CIRCLE 208,102,4.0 
7130 FOR p=4-0 TO STEP -1 
71*0 PLOT 20S-p,102. DRAW P *2 , & , 
PI 

7150 NEXT P 

7150 FOR i =0 TO 9: PRINT OUER 1; 
AT 4- + J ,25; ** + " : LET i =i + ( i =3> ; N 
EXT i 

7170 PRINT OUER 1 , AT 3,21.;" + + + + + 
+++++" 
71S0 RETURN 
3000 REM instructions 

3010 BORDER 1; PRPER 5; INK 1; B 
SIGHT 1; CLS 

S020 DIM s$(6,15j : DIM Si6,3) ; t> 
XM i*(U. LET O=0: LET i =1 ; LET 
d $ = "iftAj*AAA" ■• REM graphic b,c,c,c 
, a ,a 

3030 FOR a=l TO 5: BEEP .1,-3: P 
RINT RT 1,9; INK 2; INv'ERSE i ; "S 
US SEARCH"; BEEP .£5,3: LET i =1 - 
a : NEXT a 
S04.0 INPUT BRIGHT 1; "Do you want 

to read instructions-fy/n.1? " ; i 
$ 

3050 Xr i*o"y" THEN GO TO 8210 
3060 FOR a=l TO S; READ p$, READ 

3$ 
3070 PRINT AT 3,0;p$'''a$ 
30S0 DIM b$ fL EN P$A; DIM t * fLEN 
a$i 

3090 INPUT "Press "; FLASH 1; "EN 
i=:R'*,: FLASH 0;" Id continue, 

LINE p$ 
3100 PRINT AT 3,0;b$" 't$: NEXT 

a 

S1I0 IF p*="n" THEN GO TO S210 
3120 IF p$<>"y" THEN INPUT "DO y 

au want to name your own flee 
t? Answer (y/n) ";p$; GO TO sue 
3130 rem rename ships 

3140 POKE 23653,8: RESTORE 2-300- 
_ BORDER 4. . PAPER 5 ; BRIGHT : CL 

5150 FDR a=l TO 6: READ c$ 

ol60 PRINT AT 0,0; "What mould yf. 

u lite to cau"'ci;" 
INPUT n$ 
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" THEN 

that , t r 



a-1; rt 



3270 IF LEN n$>15 OR n$=" 

iNPUT "No you can't have 

y 3gairj";n$: GO TO 6 J. 70 

5iS3 LET S${a.l=n$ 

30.90 PRINT PAPER S-a; INK 

_3+S,Bjn$, " ",d$(3) ; NEXT o 

;s200 POKE 23653. £5; GO TO 3230 

3210 REM name ships 

3320 RESTORE 9310: FOR a =1 TO 6 

RERD C$: LET S$Ca>=c$. NEXT 3 
^230 FOR i =l_TO S; RERD d .- LET S 
1 * i, 1 * ~ 3 ~ - 1 - LET &U ifS) =2U : LET S * 
s , 33 =d . NEXT i 
B24-0 LET SX =FN 
N r t'2S.i -1. l_ET 
3250 LET PC=FN 



TURN 

-'300 
J0I0 
9020 
9030 
USR 
504-0 
S050 
5 , : 

3060 



r (20 J -I: LET 
= d =FN r f 10.1 
bO ; LET nb = 



sy =F 

RE 



REM Data 

REM Define graphics 

FOR c=l TO 14-: RERD c* 

FOR b=0 TO 7: RERD bt ■ 

C $ + h, bt : NEXT b 

NEXT C . PETLLPN 

&&T& ",3 " t & ,3 ,S , 12, 23 , 12^ 

REM patrol b6at 

DRTR 



POKE 



22 



55- 126,- 0; 
y070 DRTR 
^1,0; REM 
3SS0 DRTR 
2, 32, 1*5: 
5090 DRTR 
. 20 . . REM 



" b" , 15, 16 , 59 , 186,255 ,2 
REM battle cruise r 

" C" ,0,3, 3,204- , 92,255 ,2 
frigate 

"d " , 137, 74 ,4-4-, 31, 24-3, 5 
REM exp I o s i on 
"e" ,0, 40, 43, 120, 30, lie 
mi ne 

f " ,255, 123,123,123, 12 
~: REM grid 
,0,0,1,1,7,1,1,0* R 

, , , , , 224 ,0,0,0: 

,0,0,0, 24 , 24- , .. j . 

1 - «. 

. , 93 , 93 , , , 6 , to , : 

2 

,3,3,fl,2t,24,«432, 

no - 3 
, , 102 , 102 ,0,0, 102 , 

ce no - 4- 

, 195, 2 95, 0,24, 24-, 0, 
195,195: REM dice n D . 5 
9130 DRTR "n" 1 , 102,102,0,102,102, 
3 . 102, 102: REM dice no.6 
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b*100 


DRTR "f" 


S , 12S, 123, 123 


3110 


DRTR "g" 


EH H 




-H120 


DRTR "h 11 


REM 


- 


^130 


DRTR "i '• 


REM 


dice no. 


314.0 


DRTR "J" 


REM 


dice no. 


3150 


DRTR *'£" 


132: 


REM dice 


sl60 


DRTR " I " 


1 02 , : REM d i 


9170 


DRTR ■•i»" 



9190 
f war 
e cru 
3 r n 

9200 

and d 

i Ch h 

he sh 
9210 

equi 
that 
'loser 
9220 

on t y 
£b ch 

ad th 
he Li 

fitise 
fri ga 

uats. 



DRTR " 
Shi ps 
i se r , 
ga tes . 
DRTR " 
es troy 
as 

i PP i n g 
DRTR ■■ 
pped 
r i ses 

to 
DRTR ■* 

a 
arges 
e s-hip 
Juts 
r 
tes 



You control a fleet q 
consisting of.-i Batt I 
2 Patrol vessels and 

Your tasx is to hunt 
an enemy submarine wh 
been lurfcing around t 
lanes near you."' 
Your battiecruiser is 
with a s^onar systea 
in pitch as it gets c 
the sub, " 

Each vessel can carry 
Ufiii ted a/noun t of dep 
and once they are fir 
must return to port.T 
are 4- to the battle c 

3 to each of the 
and 2 to the patrol b 



92 

ps 
i 

s 

ca 

92 

rie 

de 

?o 

y 
1 1 



30 DRTR "The su bma rine may tor 
do any ship that is within a 
ange of 5 units and is in tin 
either horizontally or verti 
uy." 

4-0 DRTR "The submarine moves o 

unit each round and may hi 

up to a depth of 10 units -if 

u wo v e 1 of your ships directl 

above thesu bm arine an alarm wi 

sound . " 



3250 OfiTfi "The number of moves y 
eu get each round depends on a 
dice', you may move any num be r D 
r ships as long as it is within 
us limits-*' 

3250 DRTR "The rojt^pnter »4 1 l -se*j 
uence through each ship and 

=ssK you ifyou want to wove it,P. 
r-siiier with 'ENTER- if you don't 
o r use the directions n , s , e , w or 

d' for daytti cf<if-5£ , " 
s*270 DRTR "if you navigate your 
ship into another ship then the 

s waller ship will be sunk. If 
you crash into mine your ship « 
ill s i n K . " 
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S230 DATA " 

our command 



your flagship) 
rijate 1) 
ate 25 
ifri ga te 3) 
st rot boat u 
ro l boat 2J " 
3S90 DATA 
e your own 

3330 DfiTft 
Ugship) " „ 
"' , "Fr i gate 
3 t ro I host 
»31l3 DATA 
SHEFFIELD" 
NTERBURY" , 



"/'The ships under y 
are-HHS INUINCIBLE l 



-HM5 SHEFFIELD 
-RN25 OTft&O Iffig 
-RW2S CANTERBURY" 
-HM5 BRITANNIA £p 
-US& TITANIC (pdt 



'■Would you l i x e to n aia 

f L e e t ? An sue/ f y /n l 

'your Sattlecruiser f f 

"Frigate l'-ZTrigste 2 

3","P3trol boa t l 1 * , "p 

2" 

'HMS INUINCIBLE" , "HMS 
- "RNIS OTflGO"/'RNZS &« 
'HMS BRITANNIA" , "USS T 



ITANIC" 
932S DATA 4-, 3, 3,3, 2,2 
9999 STOP : BORDER 7. PAPER 7 .- 
NK 0. BRIGHT 0: INVERSE 0; CLS 
STOP 
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Hangman 



This is a superior version (by Raymond 
Blake} of the evei — popular hangman game. 
It has been designed so you can customise 
it to your own requirements and the word 
list has been left small deliberately to 
encourage this. 

To alter the words, simpLe change the 3D 
in Line 70 to the total number of words in 
the List, and enter the words into DATA 
statements at the end of the program in 
the same fashion as lines 15D0 to 1520. 
Witty comments and the scope for 
elterations can make running this game a 
long-Lasting enjoyabLe experience. It is 
even better if you can get a friend to 
change the word List for you, so you don't 
know what the words are. As stated in Line 
20, CAPS LOCK must be engaged before 
running the program. 



20 REM ENGAGE CAPS LOCK 
BEFORE RUNNING 

£5 LET F=i?.- RANDOMIZE" 

30 BORDER £ . PAPER 7 . £&& i" . C 
L5 RESTORE 

4.3 pqxNT ^^ S ■ "?; "SPE-TTPU" HSAftfB 
HAN"; INK 2; Hf i;7;" 

it 

50 IF F=0 THEN PRINT ST_3 f ft; '~H 
elp: Th es £ 3& Sr ii% £Ti vi I I iic;j5 5f t : " } 

AT 5,i;"if you csn't guess their 
word-" 
55 IF F=I THEN PRINT AT 3,©* "O 

h no j now they went to bens s 1 /"' 
*"fri£ndJ You've got to help hie? 



60 LET U=0: LET W4=' 



LET C-=^ 
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70 FOR 1 = 1 TO int SRfct$?$3e*£> : 

READ P^: NEXT I 

-?5 Fon I = -20 -re 30 3E£P .-^2^1 
: NEXT "i 

30 LET L=LEN P$. LET S* = " 

" i TO L> 

30 PRINT PT 12,3; INK 2.-B3 
100 pa int at 3 > e ;• ink 1 ; • £r* t * r 

4 0LT 3UESS" 

120 JHCyT c$- r= i_£w C«-' >i PNC* 
LEN C$ ; >L THEN GO TO 12^ 

130 IF G'JM'B" OP Cl:.'"!^ THEN ©S3 

TO ISO 

14-0 PRINT PT §,0;" 

156 IE LEN C$=l THEN GG TO 13© 

130 IF C$=S$ THEN LET E$=C5 

170 IF &$•?>£*£ THEN LET U=L 

175 GO TO -203 

130 LET U=0. FOR X=l TO L: 11= P 
*a.'=CS THEN LET 3$vr*=C* 

19D I? C$-:>BStlA THE.?^ Lt; w-U*l 

195 NEXT X 

200 PRINT PT 12,3; INK 2^S^: IF 

U=L THEN LET C=C + 1: SO SUB 730^ 
C*28: &EEP , 3 , 5 * i 10 -43 J -25 . L ET i-i 
*=y$+tc$ PND LEN Cj=l) 

210- IF U<>L THEN ^OR X =10 TG 30 
: BEEP ,82,1. NEX T I 

220 PRINT PT 17,S, : 'S,frong letter 
S": PRINT PT 12,2; INK 4-; W* 

='4-0 IF fi*=B$ THEM GO TO -SOO 

250 IF 0=10 THEM GO TO 5SS 

230 GO TO 1O0 

500 PRINT PT 3,8; INK 3;" OyChJ 

Next time VOU want help,- " " " " Do n 
J t cos5€ running to se e , gorcn! " 

520 FOR 1=20 TO -30 ST£P _ 1 - BE 
tP -02,1: NEXT I; GO TO SSiff 

300 pcf rsrr ST 3 ,-%?;. INK 3;- " TJienft 
3 very i6uch, Re isind & e I * " " " Ow e 

you 3 targe -drinK, partner?" 

320 FOR I =-20 TO 30. SEEP .^3,1 
: NEXT I 

350 PRI^T PT 10,-2, INK i; "The i? 
ord mas- : " ; fif 1 2 , 3 ; fl * 

330 PPUSE 120 

320 LET F=I; GO TO 30 

80S FOP 0=13 TO 12: PLOT i50,J: 

DRPU 30 a : NEXT *J 
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310 FOR 0=212 TO 214-: PLOT U,13 
; DRfiU t 1GO . NEXT U : PET URN 

320 FOR O=201 TO 203: PLOT U,13 
DRPU 10,10: NEXT U 

330 FOR 0=21 TO 23: PLOT 215 ,-U: 

DRPU 10,-10: NEXT J. RETURN 

S4-0 FOR = II1 TO 113: PLOT 211,- 
J: DRfiU -4-5.0: NEXT U 

350 FOR U=201 TO 203: PLOT U,ll 
0: DRPU 10,-10: NEXT U; RETURN 

330 PLOT 171,110: DRPU 0,-20: P 
ETURN 

=- ■ Pi_OT 173 35 

390 PLOT 139730; DRAU 4- ,© , .-5*-P 
I : RETURN 



DPPU 0,-14-: ^iEXT U; RETURN 
220 FOP U=70 TO 72; PLOT 133, U; 
DRPU -10,4- ; NEXT U : RETURN 
94-0 FOR U = 70 TO 72: PLOT 173, U; 
DRPU 10,4-: *'}£>rr *J._ SETURH 
330 i-ufi J=5S TO c»i£ ; PluI 171,U: 
DRfiU -7,-10. NEXT U : RETURN 
y t?0 r OR U -t?'=^ TO 32 : rLO i 1 ? 1 , U : 



-14? 



;-ff=V" 



fETi=P^ 



1^- W £5 E - 

ISaB Dfltfl ' IS GTO PE ' ,- " P OK ER " , " " P L P 
NET" , "SPHERE" , "FRLLPCY" , "TRXUHPH 
" . "KPNGPROO" , "ATTRIBUTE" f 'DEfiDLI 
NE" - "ROUTE" 

1510 DPT P " HOTEL " , " GALAXY * , J ' UN X U 
ERSE* , "MIRAGE" , "SRIHST ONE" , 'OUIU 
ER" . "COLOUR" , "PPINBOU" , "LPUOH" , " 
U IS ION" 

1520 DPTR "SLATE" ,- "USHERETTE" ,- "F 
ELLOU" , "PRI NTER " , " COHPUTEA "Z'FOL 
DER" , "DIVISION'- , 'iiPiG£iZIH^' t "NUGF 
T" , "UUNPER" 
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SPACE GAMES 




15B 



159 



Stellar Evade 



This tiny program, written by Graham 
CharLton, produces a surprising Ly 
entertaining game. You use the "z" and "m" 
keys to move Left and right to dodge the 
asterisks coming up at you from below. 
[Note that thB odd thing after the second 
equals sign in Line 90 is an "m".) 



IB 


BORDER 2 .* PftPER 




CL 


"5^ 


£0 


LET a - 


= 10; LET h 


=15: 


L_ 


ET 


LET t =0 










30 


POKE 23692 >« 








*e 


LET t = 


= 1+1 








SCI 


PRINT 


AT SI i 31} ' 


* " 






Dtti 


rOR x > 


~1 TO S 








70 


INK 7 j 


PR TNT ST 


C .- -P 


**b 


*yt 



c =i 



* 



30 NEXT Z 

Qt? LET b=b+ iINKEV*="Bj" ftNC b<3 
J - V IN K EV * ss " Z " SMD b ;> J A 

100 IP SCREENS fB,b.*="3" THEN 
EEP S f S: PRINT "YOU fCC.red " j t . .- 
rOR X=l TO 203: NEXT :>; : RUN 
118 PRINT RT s ,,*>;"©" 
120 GO TO 3S 



160 



161 



Space Trek 



Skilled programmer David Perry wrote this 
program for the book. In this game, you 
fly through each galaxy, avoiding the 
stars, aiming to shoot all the enemy alien 
battle cruisers. Once you've finished, you 
must leave the geLaxy via thB Black Hole 
to penetrate into deeper space. 

Full instructions are included within the 
program. You move around using the cursor 
keys, with "0" to fire. The pound signs 
shouLd be entered as hash E#] symbols. 



X 


REM 






REM 


BRACE TREK! 


~T 


REM 


£££££££££££ 


A 


REM 




t h 


REM 


COPYRIGHT 


6 


REM 


DAVID PERRY 


7 


REM 


1 983 


B 


REM 




D 


POKE 


23658, B: LET 



NUM=10: D 
I M m <- NUM+ 1.8): DIM N ( NUM+ 1 ) : FQ 
R N=l TO NUM: LET N <N> =- < 1000- <10 
0*n ) ) : LET N* < N ) ■ "SPECTRUM " : NEX 
F N: GO SUB 2000: LET N*<1)="DAV 
E OK ' " s LET WCt) *S000 

10 BORDER 1: PAPER 0: INK 7: B 
RIGHT 1: CLS 

20 LET GAL=1: LET B0N=3: LET B 
00: LET LEV=3: LET MEN-3 
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30 PR INT AT . ; I NK 5 : BR I GHT 
0; " 

"; AT 21,0: " 

II 

35 FOR N=l TO 3: PRINT INK 5: 
AT N,0;" ":AT N.31;" ": NEXT N: 
FOR N=4 TO 20: PRINT INK 5: AT N 
,0: " "I AT N,31. : " ": NEXT N 

40 IF MEN=0 THEN 00 TO 1000 

42 FOR rv=l TG LEO 

45 LET X=INT (RND*14)+6: LET Y 
= INT ( RND* 29 i + 1 s IF SCREEN* (X . V 
}<>" " THEN GO TO 45 

50 PRINT AT X,Y; INK 2s "K" 

51 NEXT N 

54 FOR J=l TO 80N*2 

55 LET X = INT (RND*14)+6: LET Y 
= INT (RND*30)+1 : IF SCREEN* (X„Y 
)<>" " THEN GO TO 55 

60 PR I. N T AT X , Y ; INK 6 ; " * ' ' 

70 NEXT J 

75 LET X=INT (RND* 14) +6: LET Y 
== INT ( RND * 29 ) +2 : I F SCREEN t ( X , Y 
)<>" " THEN GO TO 75 

80 PRINT AT X,Y: INK 7; "0" 

90 PRINT AT 1.3: INK 4; "SHIPS 
LEFT:";: FOR N=l TO MEN: PRINT 
INK 7: "a" ;: NEXT N: PRINT AT 1 , 1 
9; INK 6; "SCORE: " : SC 

100 PRINT AT 2,8: INK 3: "HIGHES 
T SCORE: '* ; N U ) : PRINT AT 4,0; IN 
fc 5; " 

pp 

105 PRINT AT 3. 4: INK 2; "GALAXY 
:";(5AL: PRINT AT 3,14; INK 6;"KL 
IN60NS LEFT: " ; LEV 
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110 LET D=2: LET A-5: LET B*% 
120 PRINT AT A.B; " " 
130 tP D=t THEN LET A=A-1 
140 IF D=2 THEN LET E=B+ 1 
150 i:F D=3 THEN LET A ==A+ 1 
160 IF D=4 THEN LET B=B-i 

163 IF B<1 THEN LET B»S0 

164 IF B>30 THEN LET B=l 

165 IF A<5 THEN LET ft-20 

166 IF A>20 THEN LET A=5 

167 IF LEV«0 THEN BEEP .01,50: 
IF SCREEN* (A,B>="0" THEN LET 

B N =* B N + 2 : LET G AL. = G A U + 1 : PRINT 

AT 3.11;GAL: SO SUB 800; LET LEV 

«BON: GO TO 40 
1 70 I F SCREEN* (A.B) < > " " THEN 
FOR 1=7 TG STEP -1: PRINT AT 

A , B ; I NK I ; " X " : BEEP . 02 ,1*7: NE 

XT I: GO SUB BOO: PRINT AT 1 „ 13s 
": LET MEN=MEN-1: FOR N=l T 

MEN: PRINT AT 1 . 13+N; "a" : NEXT 
Hi GO TO 40 

ISO IF INKEY*="7" THEN LET D=l 
190 IF INKEY$="8" THEN LET D«2 
200 IF INKEY*=*'6" THEN LET D=3 
210 IF rNKEY*^"5" THEN LET D-=4 
220 IF D=l THEN PRINT AT A,B; 

INK 6; "a" 
230 IF D=2 THEN PRINT AT A.B; 

INK 6; "b" 
240 IF D=3 THEN PRINT AT A,B; 

INK 6; "c" 
250 IF D=4 THEN PRINT AT A.B; 

INK 6; "ri" 
255 IF INKEY*="0" THEN GO SUB 

300 
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260 BEEP .01,0*10: GO TO 120 

300 IF D--= 1 THEN GO TO 4 00 

310 IF D=2 THEN GO TO 500 

320 IF D=3 THEN GO TO 600 

330 IF D = 4 THEN CO TO 700 

340 STOP 

400 IF A=5 THEN RETURN 

405 FOR N»A-J TQ S STEP -1 

410 LET AS "SCREEN* CN.B) 

420 IF A*="K" THEN LET LEV -LEV 

-1: PRINT AT 3,2B;LEV;" ": LET 

SOSC+lOOi PRINT AT i.25;9C: FOR 
1=7 TO STEP -1: PRINT AT N,B; 
INK 1;"K": BEEP .01,1*7: NEXT I 

: PRINT AT N,B;" ": NEXT N 
430 IF A*-"*" OR A*="0" THEN & 

EEP .03.10: LET N=&: RETURN 
440 PRINT AT N,B;("-f" AND M>5): 
BEEP .Ol.N 

450 PRINT AT N,B - S$" " AND N>5>: 
NEXT N: RETURN 
£00 IF B=30 THEN RETURN 
SOS FOR N^B-H. TO 30 
510 LET A*=SCREEN* <A.N) 
520 IF A$="K" THEN LET LEV=LEV 

-1: PRINT AT 3. 28 : LEV j" " : LET 

S D= S C + 1 00 : P R INT AT 1 , 2 5 ; S C : FDR 
1=7 TO STEP -li PRINT AT A,N; 
I NK I ; " K " : BEEP . 1 , I * 7 : NE X T I 

: PRINT AT A,N; " ": NEXT N 
530 IF A*""*" OR A*^ ,, 0" THEN B 

EEP .03,10: LET N=30: RETURN 
540 PRINT AT A,N;C"e" AND N<31) 

: BEEP .01,N 
550 PRINT AT A,N;<" " AND N<31> 

: NEXT N: RETURN 
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600 IF A=20 THEN RETURN 

60S FDR N=A+1 TO 20 

610 LET A*=SCREEN* (N,B> 

620 IF ft** "ft" THEN LET LEV=LEi:V 
-1: PRINT AT 3. 28s LEV:" ": LET 
!3C-!3C+10O: PRINT AT 1,25j;SC; FDR 

1=7 TO STEP -1: PRINT AT N,B; 

I NK I ; " K " : BEEP . 1 , I * 7 : NE X T I 
t PRINT AT N,Bf" ": NEXT N 

630 IF A*-" #» OR A*™"0" THEN B 
EEP .03,10: LET N=20: RETURN 

640 PRINT AT N,E;("f" AND N<21) 
: BEEP . 01,N 

650 PRINT AT N.B;<" " AND N<21) 
: NEXT N: RETURN 

700 IF B=l THEN RETURN 

705 FOR N-B-l TO 1 STEEP -1 

710 LET A*=SCREEN» CA.N) 

720 IF A**'!K" THEN LET LEO=LEV 
-J: PRINT AT 3, 28; LEV;" " : LET 
SC-SC+100: PRINT AT l,25:SCs FOR 

1=7 TO STEP -is PRINT AT A,N; 

INK I;"K": BEEP .01.1*7: NEXT I 
: PRINT AT A,N; " "; NEXT N 

730 IF A*=*'Jr n OR A!t>~"0" THEN B 
EEP .03,10: LET N=l: RETURN 

740 PRINT AT A.NjC'ta" AND N>0> ; 

BEEP . Ol.N 

750 PRINT AT A,N:<" " AND N>0>: 

NEXT N: RETURN 

801 LET B=2: FOR N=20 TO 5 STEP 

_. i 

810 BEEP . 02,N*2: PRINT AT N,0; 
INK 5$ " 

B20 NEXT N 
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830 PRINT AT 3,31; INK 5;" ": P 
RINT AT 21, 1 ; INK 5; " 

" : RETURN 
tOOO PRINT AT 10,4; PAPER 7; INK 

0: BRIGHT Os" YOU HAVE SCORED " 
. cr ■ " " 

1010 BEEP .1,24: BEEP .1,23: BEE 

F .84,24: BEEP .5,21: BEEP .5,20 

: BEEP .85,21 

1500 IF SC<=N<10> THEN PAUSE 50 

: BO TO 1540 

1502 LET NUM=11: IF SO=N(NUM) T 

HEN INPUT "ENTER 13 INITALS 1 ";P 

f: IF LEN F*>8 THEN GD TO 1500 

1505 IF SO-N(NUM) THEN LET N<N 

UM>=SCs LET N*<NUM>=P* 

1510 FOR A=*l TG (NUM-1) : LET &#» 

N*(A>: LET C*=N*(A+1>: LET B=N(A 

>; LET C^N(A-M): IF B<C THEN LE 

T N(A)=C: LET N(A+1)=B: LET N*(A 

)"C*: LET N*(A+1>™B* 

1520 NEXT A: FOR N=l TO NUM-1: I 

F N(NKN(N+1) THEN SO TO 1510 

1530 NEXT N 

1540 CLS 

1550 PRINT AT 2,4:"H ALL OF 

F A N E ! " 
1560 PRINT AT 3. 4; »============= 

1580 FOR N=l TO NUN- 1 : PRINT AT 

N+5 f 7 ; I NK 6 ; " C " ; INK 2 ; N ; I NK 
6;">" ;AT N+5,12: INK 7;N(N): PRI 
NT AT N+5, 17- INK 5; N* (N) : NEXT 
N 
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T 



£: 



1590 PLOT 0,0: DRAW 255,0: DRAW 
, 1 75 : DRAW -255 , : DRAW , - 1 75 : 

PRINT AT 17, 8; PAPER 2: INK 7;" 

PRESS ANY KEY 1 ": LET l>0 
1600 LET 1=1+1: IP I>7 THEN LET 

1-0 
1610 PRINT AT 2,4: INK I;"H A L 
!.. D I- FAME ! " 

1620 BEEP .01,1*7: PAUSE 2: IF I 
NKEY*="" THEN GO TO 1600 
1630 GO TO 10 

2000 BORDER 1: PAPER 0: INH 
RIGHT 1: CLS 

2030 PRINT AT 2,6; "S P A C E T 
R E K ' " 

2040 PRINT AT 3, 6; "£££££££££££££ 
£££££££" 

2050 PRINT AT 6, 1 ; "CONTROL YOUR 
SPACESHIP USING THE CURSOR KE 
YS AND ' 0" TO 
ECT OF THE GAME 
ROUGH ONE GALAXY 

WEAVING BETWEEN 
SHOOT THE ENEMY" 

2060 PRINT " KLINGON BATTLE CRUI 
SERB. WHEN THEY ARE ALL DESTRO 
YED YOU CAN LEAVE VIA THE B 
LACK HOLE. " 
2065 RESTORE 2085; FOR 00 TO 7: 

READ HAT: POKE USR "A"+C.HAT: N 
EXT C 
2070 PRINT : PRINT " YOU 'a J 

BLACK HOLE ' "; INK 7; "CI* " 
2080 PRINT : PRINT " STAR '" 
; INK 6;"*"; INK 7f" KLINGON ' 
"; INK 2; "K" ; INK 7; "* " 
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FIRE. THE OBJ 
IS TO PASS TH 
AFTER ANOTHER 
THE STARS TO 



20B1 PRINT : PRINT TAB 2i PAPER 

2: INK 7:" PRESS A KEY TO COMMEN 

CE ! " 

2082 PLOT 0,0: DRAW 255,0: DRAW 

. I 7 S : DR AN - 2 55 , : DR A W 0. , - 1 7 5 

206-4 FOR 0=0 TO 39: READ HAT: PO 

KE USR "B"+C,HAT: NEXT C 

20.85 DATA 24 , 3 6 , 36 , 36 , 60 .90,102, 

66 

2086 DATA 0.224,94,49,49,94.224. 


2087 DATA 66,102,90,60,36,36,36, 
24 

2088 DATA ,7,1 22 , 1 40 ,140,122,7, 


2089 DATA , , , 255 , 255 , , , 

2090 DATA 24,24, 24 , 24 , 24 , 24 , 24 , 2 

2110 LET 1=0 

2120 LET 1=1+1: IF I >7 THEN LET 

t=?b 

2130 PRINT AT 2,6; INK I;"S P A 

C E T R E K ! " 

2140 BEEP .01, 50- (1*7) : PAUSE 2: 

1 1- I N K E Y * m " " THE" N GO TO 212 
2150 RETURN 

9998 FOR N=0 TO 7: PRINT INK N: 
" " } i NEXT N 

9999 GO TO 9998 
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Stellar Probe 



This is s fascinating gsme in which, once 
again, you patroL a sector Df the gelaxy. 
As you might heve guessed, there are 
aliens at the bottom of the galaxy, and it 
is your task to find them, and bLast hBLl 
out of them. 

The program shows a map of the current 
Ge Lactic Sector, a Long with its important 
features. You'LL quickly learn how to read 
the map once you run the game a few times. 

At any time you can move, scan or fire. 
Your scanners operate in two ways. The 
short range scanner, which looks into the 
eight squares immediate ly surroundi ng you , 
consumes little energy. The Long range 
scanners Look two squares in a single 
direction, and use up more energy. 

The game ends if you Land on top of an 
alien ship. The aliens do not move around 
during a single game. You have Limited 
reserves in your energy bank and must try 
and ki L L as many a Li ens as you can before 
your energy is totally depleted. 

An alien [and the program invents names 
for the aliens for each game] can onLy 
shoot back after you have f i rBd your Laser 
at it [thus reveeling your position) and 
if the aLien is within a single square of 
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you. Damage to your ship from an accurate 
alien shot is shown in energy terms [that 
is, energy is drained from your bank] , The 
game continues unti L you land on an alien 
ship, or run out of energy. Tim Rogers 
converted this program from an original 
program of mine. 



10 BOkDEP 

2© IK'K S 

3© PRPER 3 

4-@ CUS 

50 Q.-o 5UB 2SS0 . 

7© GO SUB 300© 

110 GO TO 70 

1010 DIM M ( 10 .10) 



.RRNDOMIZE 



GO SUB ISSS 






1030 

.- ^5 o iL- 

2 110 

iiss 

1123 
1 I 30 



1310 L& 



FOR 3=1 TO 20 
LET 3 CFN a f>;J s FN 

NEXT a 

LET g (U.p}=2 

LET S (U t P > =2 

LET rn =FN Si5) 

L ST r r; 1 -FN a ( S } 

LET Z£^F-J 3$0 

RETURN 

b ]. =FN B ;20) 
BEEP . 1 , b i 
BEEP =1,21 -12 
RETURN 
DEF FN a (Xj =JNT 



) = 1 



2S20 
204-0 
210© 

212S 
2130 
2 14-© 

215E 



PEF FN 3$() =x$(fn. 
>$ ;mi, to t ';mij23 J 

LET P -5 



154-0 

2© 85 

3010 

13 5 +y ? 

2015 LET X =1© 

LET u =5 . 

LET Si $ = " 

DIM C!M5^§.V 

F OR = = 1 i O 5 

RERC-- c$» vai 

NEXT a 

LET a t =0 

D XH t» C 0% : o xn 

FOR 3=1 TO 3 

RESE) his>: REP.O C 

NEXT a 

LET £=ieSS+28S@*RMD 



(RND*X > +1 



TO t 



<6i 



217© 

215S 
2190 
220© 
2210 
2215 



is, 3 



l in 

DIM 
DIM 



u$ 118 . SJ 
t is ,2i 
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3 ;23 =LEN O * 



2230 FOR 3=1 TQ 3 

22--S RERD G * : LET t IS • 1 t -LiH p$ 

2£30 LBT K § t3> = OS 

2235 REfiD O*: LET t 

H24© i_i^T y$ fSi =0$ 

£250 NEXT 3 

2250 D IN £ $ C 10 _, 113 

£2 ?@ F ! _;R 3 =1 TO :=« 

223S LST rn-rN 3^3) 

229S LET rni^FH 3(3) 

£300 LET^S $ ( 3 .> =FN 3 $ ( J 

2 3 1 i3 N E X : 3 

£320 FOR 3=1 TO 3 

£330 FOR b=© TO 7 

2348 RERD C 

2350 POKE USR CHR$ £14-3+3) +to, C 

2350 NEXT b : NEXT 3 

24-90 RETURN 

30i@ cls 

3028 PRINT RT 0^S;"STR.R **; 

3330 GO SUB 1SGS 

3©S0 PR INT *' MRP " ; 

3 1} 3 6Q 5US 1 5d 3 
^i?-3© PRINT "RtfiD-OUT" 
3030 GO SUB iSBG 
3100 FOR a=l TO 32 
3110 PRXNT_"*".; 

3 130 N ^ X ? ca 

314-0 GO SUE 1500 

315 ! i5- PJ-ilf'-iT RT 3,S; " i£'3iS67S90'' 

31S0- FOR 3=1 TO 1© 

3170 XF a ■-; 10 THEN PRINT =:. GO T 

3190 

3130 PRXHT "&**} 

3190 FOR b=l TO 10 

3195 LET bfsa-fSfSjbJ+U 

3200 PRINT INUERSB i;b$; 

3£©5 IF b$<:>" " THEN GO SUB 1500 

3210 NEXT b 

32 IS IF a<18 THEN PRINT 3: GO TO 

3230 

322© PRINT "0" 

3230 NEXT 3 

324-0 PRINT " 1231S67SS3" 

3510 PRINT AT 5,14--. INK £, FfiPER 

~?;. FLRSH i; Energy Banks " ; IHT 

352© PRINT RT 5,14-; 

3S30 FOR 3=1 TO e-£©0 

354-0 PRINT INK E V M " 

:j550 NEXT 3 

3560 GO SLiB ISO© 
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3i7a XF £<1 THEN GO TO 40@0 
353© XF at 50 THHM PRINT RT 3. 14-; 

"3 tier; Ships-" ; fit 3,14-; "d£S- tfOsled 

'* ; 3 t : GO SUE IS©© 
3590 PRINT RT 10,14; "Ship is L Q C 

3500 print rt 11,14-; "at sub -quad 

rant" 

op!0 PRINT RT 12,14-; FLRSH %?"<" 

lu ; " Z2 - : p ; '«>« 

^o£0 GO SUB 1E00 

■J 5 3 © PR INT R T 23,li; "m ";&*Q NT 

CO sp.-10-s- .5) i ; RT 14- , 14-, "sector" 
3S4-© PRINT RT 15.0; 
334-5 GO SUB 1500 
3550 GO TO 4-5-30 
4-S10 GO SUB 5000 
4-0-20 PRINT FLRSH 1; "Energy bank 3 

c o as p i £ t e L y drained" 
4030 PRINT "Ue Killed ";3t;" a Li 

=* l j.«5 PRINT .. j. s- ^i ti N s fa/ / j ; X'D y 
ou want to b e " , " c a p t a i n again., s 

4-l£© XF TNKEYS-:>"" THEM GO TO 4-1 

4-130 IF INK EV $ = " * ! THEN SO TO * 1 3 

4140 XF INKEV* < > "n " RND IHKEYS <f = 
"N" THEN RUN 

4- 160 PRINT , , c$i'FN 3 fS3 % i*'- YOU 

3 i w a : 4 s w e r e " 

4170'PRINT "a bit Of 3 ": 

4-130 LET m =FN siS.i 

4-19© LET ml =FN 3 £ S J 

i20S PRINT FN 3$is 

4. £ 1 © PR INT E N D 

4-500 GO SUB 5300 

4.510 PRINT RT 13 = 0, C? (FN 3 (SJ j j " 

v c i-* f & r d e f . i? j f ? " 

4-515 BEEP . £ , RND*5© 

4520 PRINT RT 17, 12; 1 scan" 

4-530 GO SUB 15B0 

-i-^4-£t PkINT TR3 12;" 2 Move" 

4.550 GO SUB 150-0 

4-3P0 PRiNT TRB 12; "3 Fire" 

4570 GO SUB 150© 

453S PRINT RT 21,8; "Prsis 1 2 or 

3 on your console" 

4-520 LET i i£ = INKE*Y'S 
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453£ IF CODE. :$a9 OP. CODE i$?51 

THEN BO TO 4-S30 

4595 GO SUE IsSS 

io0S GO SUB 5SS3 

4810 IP i$ = ,: i* B THEN GO TO §t®t0S 

4-626 GO SUB 5000-5- 100© *UBL J* 

463S FOR a =0 TO 2"o 

464© PR INT RT 21,3, I S I I S " 

4550 BEtP - 01 , 3 +12 

4560 EEEF . ©i, 3 

4570 PRINT ST 21 , 3 : " " 

4SS© HEXT 3 

4-6S0 PRINT RT 21,3," 

470S RETURN 

50B5 PRINT RT 15,0; 

i3I^ J-wR 3=1 TO S 

5020 PRINT 

5©3© NEXT a 

S34-0 PRINT RT 15 , 0; 

S05t3 RETURN 

68^ 5 P RINT TRS 11. 1 FLS5H 1; INK 

6010 PRINT c$ iFN a f5J J : ■■-■' 

bS20 PRINT "long £) or short 1J 

6S30 sIet" i $ = INKEV$ 

5040 BEEP .01.0 

5050 IP CODE i $;49 OR CODE i $>50 

THEN GO TO 5030 

S060 LET R =URL_ i $ 

6030 IF K =2 " THEN .SO TO 5500 

6 090 PR I NT RT 2 3,0;" £ £ SIW3 i IS 9 * -- 

5095 LET f=0 

6100 FOR 3 =- iU >I> TO fy ;10? 

SI 10 FOR b = -fp>l> TO (p<10) 

5115 BEER ,01,0 

b!20 Z~^~ -g (U+a ,ptb5 = 1 THEN LET f — 

-5130 NEXT b : NEXT a 

S 1 4 IF f =s 1 THEN PR INT Z $ ; " _ S h S P 

in Vicinity. =ir.": GO TO bli?0 

6150 PRINT "Nothing in vicini ty .- 

S155 GO SUB 150© 

5160 PRINT RT 21,0; "Scanner o f f > 

si r?" 

S1S5 BEEP . l.RNP*50 

S170 XF INKEVJ = ' '" THEN GO TO t?l / 
© 
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5 IT'S GO SUB IBS© 

SIS© ZF INKEV$=Ti" OR INKEV4=' V H" 

THEN GO SUB 5000: GO TO OSIO 
bl90 GO TO 4.500 

5500 PRINT RT IS,©; c$ iFN a (SJ > ; " 
; Di ri'C t i o n 7 " 

oils PRINT "nerth: 1 e 3B t ; 2 south 
^3 west :4" 

t>c.l5 Zr- INKEv *<>■"* THEN GO TO 55 
15 
t?52fc? LET i fi-lNKBr'l 

-S540 IF^CGDE^i $<4-9 OR COOE i S * S£ 

THEN GO TO 552© 
S550 LET ft = (URL i $-13*2+1 
5560 LET 2=(g (u+bfK) *2,p+C iKJ *£) 
= 13 

SETS IF Z=l THEN PRINT FLR3H 1* *' 
PCS i t i ve " : GO TO 6590 

6530 print "negative" 

55S0 GO SUB 1500 

6595 IF INKEY$<>"" THEN GO TO 55 

35 

5500 GO TO 6160 

7002 LET ( I =0 

7S05 LET e=e-50 

TO!© print "Btsrings." 

'S15 GO SUB 150© 

7020 CIRCLE 40,24,16 

7030 PLOT 40 ,24 

704© DRflU , 2.6 

7050 GO SUB ISO© 

/0S0 PRINT RT 16,16; "000" 

7G60 PLOT 40 ,24 

70S© DRRU 16^,0 

--" — © GO bUE 15 © © 

711© PRINT RT IS . 18; "0Q0 " 

713© PLOT 40,24 

71^0 DRRU . -15 

71S0 GO SUB 150© 

7160 PRINT RT 20,16; "130" 

i "18© PLOT 40 , 24 

713© DRRU -16,2 

720© GO SUB 1S30 

7210 RRINT RT 23,14; "270" 

/230 XMPUT "uegrees? " : r 

724© IF r>315 OR f -i © THEN GO TO 

723© 

7250 L ET r = INT I f /45 > -i- 2 

7255 ZF ft=l THEN RETURN 

7250 LET 3(U,p>=© 

7270 LET S Cu ,p.1 =3 
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7230 LET u=L'ib if 3 

729C5 LET p=^*c fr) 

7300 IF <3tu',pi J . > 1 THEN GO TO 113. 
B 

7310 PRINT RT RND*21,0, FLh^H 1 , 

INK 2. PAPER 6; "You have l-snde-i 

j i i i i i i i s I } } I } 



on a 

i S I I ! 5 



z £ s " ship 



7320 BEEP 1,3 

7325 IF RK'D > . 95 THEM GO tu 7310 

7330 FOR 3=1 TO RND*S 

734.@ PLOT 12g . S7 

7350 ORS'J 1 23 - R.HD i255, B7 -RND *17& 

7350 NEXT 3 

7370 SEEP • -3 - —23 

7330 GO TO 7320 

3005 LET f L =1 

3S1© PRINT RT 14- , 12, INK 6; PflPt 

R 2; FLRSH 1, "RED RLERT" 

3020 GO SUE 1300. GO SUE- 1500 

3©30 PRINT RT 15,0; C$ (FN 3 (5) 3 j " 
_ — Di rt-; tiv>n O? ? i r E : " 

304-0 GCJ SUE 7B15 

3345 LET S; = E - IDS 

3050 Ir 5 sU+fa if] j p + C ( i" J ) O 1 THEM 
GO TO 33E0 



KJ DLi! 



20 



3030 GO RUB 5000 

3030 PRINT C $ iEN a i5* > y 



- YOU b 



z$: 



, i i J 



5095 LET s i" U -*■ b i f .' . p * c 1 f ) J =4- 

3097 LET 9 (u +b CD , p +C tr 3 J =4- 

3120 PRINT , ,t$;FN SfoJJ," - She 

ll I tUiT!"/'the red 3lert off. s 

if?" 

3130 IF TNKEV5 < > " " THEN GO TO SI 

4-0 

3135 IF INKEY£="" THEN GO TO 313 

5 

314-0 GG TG 1110 

330S GG SUB S0S 

3310 PRINT C& (FN 3 (5 J -* ; ": " j 

3320 LET S f U *fs tri , P ■* € if J ) =3 

3330 PRINT "" U£- iiiSSs-i, i-if ." 

334-0 FOR a =S TO 30 

3330 BEEP .1,3 

3330 NEXT a 

3370 BEEP 1 . 35 

3330 FOR 8=1 TO 5© 

3390 BORDER RMD*7 

34-00 NEXT a 
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34-10 BORDER 

S4-20 PRINT ,,-:J (FN a €5? i ; ** : The 

" ; z $ ; " sr£","=hoct:n9 bgcKi ) : 

34-30 GG SUB 1500 

34-50 IF RND > . S THEN GO TO 3700 

3450 PRINT "They HIT US SIR! I \ ! " 

S4-7S LET £=e-iS0*RND 

34-30 GO TO 3110 

S700 PRINT C$fFN B(5) J ; ": But th 

an R the stars-" 

3710 PRINT "The ";:S;" hissed us 

t ■■ 

3720 GO TO 3110 

"3020 DRTR "Or SoCfc. " , "S^C< I t J e r , ; 'L 

t , LoohJ", "Che Cjtoy t i -^U LU " 

-033 DRTS5 — i ffl . — -i ■} gs i -i i i e* 

1,-1,0, -1,-1, "I 

904-0 DRTR "Slcb",."uti3ri","Fras", 

"t Lcid" , "Mesh ^"nii". 'Ross', "u Lars 

" , "Gp-u&" ; "Ush" /'Krei L " ,"on", "Qu 

es " ,"tsf " , "Co ch" , "rane" 

3050 DRTR 255 . 135 , 195 , 153 , 153 , 19 

5 - 135 , 255 

3S60 DRTR 255 , 139 . SIS . 2SS ,255,21 

5 , 169,255 

9070 DRTR 24-3 . 152 , 152 ,255 ,4-7 ,57 ; 



177 



Lunar Storm 



David Perry's LUNAR STORM uses 

sophisticated string-handling to provide a 
mass of meteors and spaceships moving 
sideways on the screen. 

Below this is the surface of the planet 
McCLariana [named after the intrepid 
explorer 0. J. McCLaren who discovered the 
planet in 2068]. You have to try and weave 
your way between these obstacles, and Land 
on one of the three landing pads. 

To simplify an extremely difficult task, 
you'LL see you've been provided with a 
thrust button, to allow you to high tail 
it out of there when the going gets too 
rough. The game uses lots of sound and 
color, plus some rather clever UDG's. 






= s; Jis S S 



FlMflK 




ENTER LEUELd TO 31 



5-SH IP LEFT © -SH IP P XGHT 
-THRUST 



178 



i REM 

2 R5H 

3 REM 

5 REM 

S RErt 

7 REH_ 

9 LET SC=S 




F-'F*V'F& 0: INK ~ 
LET £0=100: LET 



11 LET 



=B : LET m=IHT fRND*313 



*1 

12 PRINT RT K.y;* 1 ": PRINT RT 
3 . © ; INK 5, 3$;mT 7,B,a$,F!T 11,0, 
3 $ ; RT 15 / -3 ; 3$, RT IS „ © , a $ 

13 PRINT RT S,©; INK Si b$|RT © 
.SibS.fiT 13,0=b$;HT 17,@;b$ 

14 XF INT X MS THEN GO TO 72 

15 IP SCREENS iX,ViO = ' = ' THEN 
SO rQ 3b: PRINT hi X .. y_."t^" 

Xfc BEEP » ©1 - X ££ 
IT PRINT PT x,y;" " 

IS LET x=X + .5; XP IN 6U3S=E5i 
THEN LET x =X - - S : LET £ C =B C r I 

i=d LE ■ v =V * I INKS f $t.s£"6" J - '- lMKtV 

$="5 " 1 

SB IF y ::© THEN LET Us31 

21 IF y;31 THEN LET y =S 

2£ IF X>13 THEN GO TO 79 

33 IF SCREENS *.J?,«i (?" " THEN 

*3Q TO 36- 

24- LE -1 " 3'C = 3C ^-'1 

is psi'.i^H; sTyj i«»ri ?; BRISHT 

S; "#■' 
2£ LET 3^=a$*a TO s+astii 
27 \^P± b^= b$ i"3ii -*-b$ ( iO ^@) 

2 S >jG T l? 12 

29 PRINT RT 23.3, INr 




FLRSH J.;"V> FLR5H ; "g 
, FLRSH %j "if^S INK 7; F 

LRSH S; " _ •■ ' , I N K 3 J FLRSH 1 ; "V^4„ 

;~FLRSH'3. INK 7j _Il INK 3; ' FLR 
SH I . ' V . FLRSH ; -^M" 

31 FOR n=l TO 3: RERO C$: FOR 
B =S TO 7 : REfiD b : POKE UsR c $ t-~ ^ 
b : NEXT 3 : NEXT n 
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32 DflTR " C " .. 24- ., 3S .. 3© ., 1S5 .. a 19 ,- £ 
13 j is?. . 195 

33 DRTfi '" a " , ^ 5-3 i 125 ,* i7I ; H 13 , X 
26,60 , 

34- DfiTfi "b" , 195.. 1SQ .» S3 * 156 , 12fc 
90 . 163 - I3S 
35 RETURN 

3S FOR jri = 7_iU O 5i_EP ~^-_„ 
3"? PRih i 13 i x , ■y ; iNK rs .; "^ " 

38 BEEP =. S 3. .= n S3 . BEEP = \s i _* 50 -n 
*3 

39 NEXT n 
4.0 LET 1=7 

41 PRINT Hi & ; S^ INK o; "'is G G 
R E : " ; 5C 

4-2 PRI. h 4T INK I; BRibHT £5 ; PT © ., 
Xj ''PRESS H N Y KEY! i ! 

4-3 LET 2 = 3:- 1: IF I;8 THEN LET 

T —~? 

4-4- IF INKEY$ = *"" THEN GO TO 4-2 _ 

_4E LET SC=S: GL3 : LtT d =0 : Sf? 

XGHT X ; INK. 6 

k r => = t ntt ■ ■ ■ M s m ^ 



i" 






S *--■"* *-R" * 



'K J-iV = 



S^ PRiNi 
53 PRINT 



j.NK 5: owj-t^H* e« 



PR7! 
:L i 1 



1B0 



5i PP-lNT FT 
£2 PRI^r 

RT 13 ., XX. 



3 S ~ 



"5-SHTP LEFT 3 -SHIP RIGHT" 
S3 PRXNT PT i3,li, SNK 4-J "©— TH 
RUST" 

64 PRXNT PT £&,©, INK &; "Tk¥ i 
O LftND SHIP DM LfiHDINC-_s-'fiy5" 

o5 F'HiiJ i si, BRIuHi t;„; INK^7.; s 
LUNfiR STORH & i D P i - ; X D PERRY ly83 -: 
SS PRINT PCt X5 , S; INK i ; "ENTER 






ST LET 2$ = INKEY $ 

3$:-' s 3" THEN CO ?0 

SS IF 3£=" " THEN 



a$<"l'" u_k 



M 



EX -d=l 



TF i « ^ ' 



S 



H 



yd. TF d = 3 

7t i^Cf_ L □ itJ 



M 



>n 






HEN LEI bS = "'S 



"HEN LE" 



?S -O - Lr-= 

*?5 PRXNT PT X=y; INK "?., BRIGHT 
S-; "^" : XF Y=4 THEN LET EO = X50-. 



-==-"> T F V =S?S 



HEN LETT &O = 1&I0: ^i 
'H£H LET SO = I50 : Gi 



f- OP N =. 1 Tu 3 : 



^^ Gu TQ 35 

54 prtnt'pt x.= e; INK I; "C o N 

GRPTULPTIONS ! " 

55 PRINT PT 3.,?; ! 'BONUs POINTS 
: " ; BO; " . " 
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ee print fit 5, ii; "score ; v ;SC 

87 NEXT I : NEXT N 

©S FOR N=-2S TO SO STEP 5: BEE 
P .SS5.N. BEEP .i3Si.50-aBs CN>: 
BEEP .BS6.N/S: N£ X'T N 

89 CLS : GO TO 13 



1BE 



THE LURE OF 
THE MAZE 
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ABSOLUTELY AMAZING 



We now Look at a number of different, 
outstanding maze programs, most of which 
were written by Graham Charlton. 



Maze-maker 



We start with a program which draws a maze 
of any size, such as this one: 











5HSIHL 



When prompted to do so, enter any number 
between two and 23 to see the program in 
action. 

10 DIM a$ 199 99 J 

a© DIM b$ £9999) 

30 INPUT S 

4-C* LET t=INT tSSSSS) *S 
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45 

se 

7© 

=>0 

130 

ai© 

120 
130 
140 
■4 -S3 
3 i >4 
150 
IS© 
IT 1 © 

as© 

130 
£0 
213 
220 
230 
SdS 
250 

a&s 

27S 
2S0 
290 
•300 



LET Ui=INT (175/3) i~S 



PLOT 
DRAW 
DRRU 
DRRU 
DRflU 
LET 




t , 

-t 

0, 

x=s 







w 

,© 

-III 



(X+5 .MJ +P01NT (Xj 
+S) +POINT tx-s.. y> 
200 



LET y =£ 

LET 2=1 

PLOT X , y 

XF {POINT 
tPDIMT ix.. y 

THEN GO TO 

LET 2 =2 -1 

IF Z=© THEN STOP 

LET x=GODE a* (S3 

LET U=CODE fc**ZJ 

GO TO 13© 

LET a * £ z .'i =CHR* X 

LET b*tZ3 =CHR* y 

LET Z=Z+1 

LET r=INT (RNDf4. 

LET C=S * ( (r=©.1 - U" = |.Jf * 

LET d=S*{ 

IF POINT 
3© 

EJRSU C , d 

LET X=X-«-C 

LET U=y*d 

GO TO 130 



( r = 2 J - i r = s^ 
( x + c .. y *d J 



HEN 



GO 
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Mangled Mazes 

There is no reason why the walls of the 
maze should be at right angles. Here ere 
four MANGLED MAZES programs, which use 
walls et odd angles: 




,' J — ' — V* 


1© 


DIH 


20 


DXM 


30 


INPU 


40 


LET 


50 


LET 


50 


PLOT 


70 


DRAM 


72 


DR. 9 U 


74 


DRfllJ 


75 


DRAW 


75 


DRRU 


30 


DRRU 


31 


DRRUI 


32 


DRAW 


54 


DRRW 


5t> 


DRRU' 


35 


DRRU! 



3 $ (9999) 

bS (9999.1 

T S 

t=INT i'254..'S..I 

W=INT ii.74.SS-> 

0,0 

WS2sWS2 

-ws2 ,ws2 

i t -W) S£ / © 
W /9 -£- , -W s2 ■*•£• 
in . '2 -.S , W s2 -S. 

( t -W J /2 ,, 

-W •a , -w .^2 

w/2 , -w.< r 2 
- ft -HO y2,0 
-W.^2+s , w.-*2-£- 
-KI./2+5. , -w./2* 
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■30 DRRU - i t -U' J /2 , 

110 LET X=S*12 

120 LET y=S*10 

13© LET 2=1 

14-0 PLOT X 4 y , . 

■ . M J +POXNT f X . VI +S J +FOINT IX , W -=■ .1 






A. 



y\\ AV/ 



\ / 



\ 

X X \ 



. W\\ 



r / / • ' S Si V N ,i 5 

<\XX <N X > \ V W 1 

/\/ A V\A \ WW 1 



10 
30 
30 
4-0 

4-5 
50 
60 
70 
80 
90 

] CT0 

110 
120 
130 
14-0 
x *s ,- 






D-lH * 4 i3999> 
DIM b* i'999*23 
INPUT £ 
LET t = INT 
LET id = INT 
PLOT 0.^0 
DRAW t , 
DRAW .- W 
DRflUi -t 4 
DPPUi .. -w 
L ET X =£ 
LET y *ft 
LET Z=l 

q-S.WPOINT fX-S,tf+S.t +P0XNT S 
C, _* l l <> 4 THEN GO TO 500 
" LET z =z -1 



150 IP Z =0 THEN 5T0P 

1~?£3 LET X =CODE 3$iZ> 

130 LET U=CODE b* fZ A 

130 GO TO 130 

2510 LET 3*t"zA=CHR* >•' 

210 LET h$fzA=CHR$ y 

£20 LET Z=Z+1 

230 LET r =INT 

24-0 LET C=£* £ 

250 LET d =£• * C 

250 IF POINT 
■ O 230 

2~0 DRPU C j d 

2S0 LET X =.X +C 

220 LET y =y +d 

00 OO TO 130 



l'RNC-S-4-.l 
(f <£J - f f -■>!.» A 
f f =0) + 



r =3.i - i>- =ia - 



fX + C .U+#J THEN GO 



3 







ie tin a$ t sbewj 

20 DIM b-$ f3000A 

30 LET X=iaS 

4-0 LET y=SS 

50 LET Z=l 

se INPUT 5 

7© LET t =5 *2 



1BS 



STEP t 

XK <.'© THEN GO 

STEP ^S2 

y *d €& THEN GO 

yfdi=S THEN G 



20 



3S 
30 



i 

3© 



**3 
~*1 



30 LET q=INT (SDR * t *• t -5 *5 > > 

00 PLOT x .. y 

00 FOR c=-t TO t STEP t^S 

10 IP x+c;2S5 OP XK(8 THEN ©S 

O 230 

£0 IF POINT {X+C,.yj=0 THEN GO 

3000 

30 NEXT C 

50 FOR C=-S TO £ 

60 IF Xtr>355 OR 

O 310 

7© FOR d = -q TO q 

S0 IF y+d>175 OR 

O 300 

3© IF POINT lx -t-C _ 

TO 3000 

00 NEXT d 

10 NEXT c 

00 LET Z=Z-1 

10 IF Z=© THEN STOP 

23 LET X=CODE 3$iZ! 

30 LET u =CODE h$ iZ) 

40 GO TO 100 

00 LET a*(z)=CHR* X 

1© LET b* fZ.l =CHR* tf 

20 LET Z=Z-t-l 

LET r=INT (RNpf6J n--«i_ 

A© LET c=s# t (r=i:> *■ t r=Bt-i> =QJ ~ 

= 4? i + t * Mr =3) - IT?-**.? _. , 

S0 LET d:q*tlr(2}-(r!-^) 

&0 IF XK>255 OR X«fS THEN GO 

70 S IF 8 y+dM?5 OR u+d.:0 THEN GO 

S0 W IF POINT (x+-C.-y-*-d> THEN GO 

' 3030 
9« DflflU C , d 
SO LET X=X+C 

10 LET y=y+d 
20 GO TO 100 




7 X ) ) 



/ 
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v _ 






Walls of Suspense 

In this program, you have to race two 
computer opponents [both shown as "0") in 
trying to solve a maze. You are the "*" . 
You start at the top Left hand corner and 
are trying to get to the bottom right hand 
one. 

The first one to solve the maze is the 
winner. Delete Line 344« to make it a real 
time game, 3 ; za 

1 D In c ^ i" 2 3 , 33 J 

12 DIM ~$ C1000.1 

14- Dirt b$ i 10001 

20 LET x=13 

3© LET y =17 

4.0 LET Z-l 

50 FOR W =2 TO ]=?£ 

&0 let c$ fttij =■- nunnp-nnnn-nn-nnu-^ 
»itii#ttttuttttn&ttnnuM " 

7S NEXT W 

100 LET c*t'x,y.i=" '•' 

110 if c $ cx +2 , y .1 = " S " OR £ * V lij -2 ,. 
yj = 'tt" OR c$ ix , y+2.i = -■'#" OS c * V:« .■ 
y-^> = "#" THEN GO TO 1£^0 

120 LET 2=Z-1 

130 IF z=0 THEN GO TO 2#00 

140 LET X =CODE B $ V3T .5 

150 LET y=CODE b*t'Z-> 

130 GO TO 100 
1000 LET S$f2) =CHR$ X 
1010 LET bJi'zJ -CtSR$ y 
1020 LET Z=Z+1 
1030 LET r =INT fRN£»*4.Jt 
1S40 LET C = i' r =0> - tT = !.* 
1050 LET d = f r ==2) - ( r -3.i 
106© IF c * (x +2*c , y +2*d> =" " THE)-* 

GO TO 1030 
1070 LET c $ fx +c , y +d i = " " 
1080 LET c 4 i'x +2*c , y -*-2*rf ? = ' " 
1090 LET X=X+2*C 
1100 LET y=y+2*d 
1110 GO TO 100 
3000 FOR w =2 TO 22 



1S1 



2010 
3000 

30©^ 
J-006 

J010 

3015 
3020 

3025 

3100 
3110 
3120 

3130 
3140 
3150 



PRINT 
NEXT m 
PR TNT PT 



INK 7, C * i&/& 



"0 



19, £9, ; 'X ; - 
LET >: = 1 
LET p=l 
LET u=l 
LET y=l 
LET ^=1 
LET V=l 
LET £ =0 
LET t =0 

PRINT PT x ,9> f '* -' 
LET l$=INKEV4 
IF z* = "" THEN GO TO 3110 
LET e = tz**"S"> - Vi* ="7*; .J 
LET d=(Z$="8") -fl* = "5 A 
IF SCREEN* ix +c ,y -*-d> ="»" Th 
BEEP ,1,0." GO TO 3S00 
?0 PRINT PT XrfHP'w" 
LET X =x + C 

LET y =y +d 

print PT x , y.; f '* f " 

IP X =19 AMD M =£9 THEN i>TOP 

LET £■ =S-1 

IE =- =-1 THEN LET j=- =3 

PRINT PT P ,q; "■ " 

IF =.=4- THEN LET 5=0 

LET c = fs =1> - fS >s3J 

LET d = IS=0.> - f£- =2J , _ 

IF SCREEN* (P-J-C , -Q.+dJ ="»' TH 
? N LET s=*+2: GO TO 4-0SS 
41350 LET p=p+C 

LET q=<3+d 

PRINT PT I**** §~ . .,. M 

IF p=19 PND q=£S THcl'f SiOP 

LET t=t-l 

IF t=-I THEN LET t =3 

PRINT PT it , v ; "W 

IF t =4- THEN LET t =0 

LET c = t t =0.1 - I IX =£> 

LET d = ft =1> - ft =3> 

IF SCREEN* (U+C,Vti*="8" TH 
LET tsst+2. SO Tu P*^&^ 
S050 LET U=U+C 

LET v*=V+d 

PRINT PT U , v; O ««-«— 

IF u=19 RNO V=29 THEN STOP 

GO TO 3100 



-■ X 

31 30 

3190 

32 00 

3210 

3 500 

3700 

j900 

4-000 

4-010 

4.020 

4030 



4.050 
4.055* 
4-070 
5600 
5700 
5900 
3000 
5010 
S020 
6030 



5050 

S06S 
D070 
5 0S0 
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Wall of Suspense 

In this version of the game, you are only 
racing a single computer opponent. 
However, it is far more intelligent than 
the double opponents and can race as fast 
as you can. 



10 
12 
14- 
20 
30 
40 
50 
S3 



D IrT 
DIM 
DIM 
LET 
LET 
LET 
FOR 
LET 



a $ ( 1O00) 

b$ t 1000J 

x = is 
y=17 
z =l 

h< =2 TO 22 

3ttStttt«tt«*ttt»»«»» " 

70 NEXT W 
100 LET C*MX A yJ= ,-*{■< -2. 

i£,="»° THEN GO TO 1S3S 

" -z> m ! (ST S = Z — 1 

IF z=0 THEN GO TO 
L £T X =CODE a$iZi 
LET V=CODE b$(Z) 
GO TO 10© 
LET 3$(Z.1=CHRS SC 

b* (z:j =CHR* y 

Z =Z +1 

r = INT IRND*4j! 

c= i r =G) - ir = i) 
r =2:1 - { f = 3i 
+2*C .. U +3#d'f =' 



130 
14.0 
153 

1&0 
L003 
L313 
L 02w 
1 030 

L04-0 

GS3 
L3S0 



2005 



LET 

LET 

LET 

LET 

LET d= f 

IF c$ (x 
SO TO 1030 
070 
333 
090 
100 
110 
003 

010 

023 



THEN 






J330 

S000 
5305 
J310 

;S15 



LET c$ i 

LET c$i 

LET K=X +2#C 

LET y=M+2*-d 

GO TO 100 

FOR W=2 TO 22 

PR INT INK 7 ; C $ * ® .. 2 

NEXT W 



2 TO 



PRINT RT 
LET X=l 
LET p=l 
LET y=i 
LET q=l 



19 t 29.,- VV X 
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3SSS LET 5 = 

3130 PRINT 9T a . y .; " 5T 1 

3110 LET Z$=INKEY$ 

3 120 If 2$="" THEN &D TO 3110 

3130 LET C=(Z$="5"i -;iS="7"J 

314-0 LET d=(Z$ = "e") -(Zf = "5"J 

3160 IF SCREEN $ OC +e . y *-d > ="»" Th 

EM BEEF* .1.0: GO TO 3600 

3170 PRINT" RT x .y; "S" 

;130 LET X=X *£ 

LET M ='-l + d 

PRINT RT X . y .: " *" 

IP x=19 fiND «=29 THEN STOP 

LET £=S-1 

IF S«-2 THEN LET 5=3 

PRINT RT p , q 



3130 

3300 
3210 

33&G 
3730 
3S00 
-4-800 
4-010 
=0-020 

-030 



IF 5 =4- THEN LET S =S 

LET C=(S=i:i -li=3J 

LET d= (3=0) - (s=fc»> 

IF SCREENS (p+C,q^>= 8 

EN LET S =£■*-!: GO TO 4000 

4.350 LET P =P +C 

4060 LET q=q+d 

£065 PRINT RT P.q.:"0' 



TH 



4070 
40S0 



IF 

GO 



p=19 AND 
TO 3100 



q=£S THEN STOP 



Dual Level 3-D Maze 

In this program, the maze is on two levels 
connected by a number of tunnels. 



The display shows the top and bottom 
floors, along with the interconnecting 
tunnels. You move through the maze using 
the cursor keys "5" to "B", with "9" to go 
up a level and "4" to descend. The maze is 
invisible, but you can delete line 2000 if 
you want to see it. 

You have to get from the top Left hand 
corner of the Left hand maze to the top 
right of the right hand one. 
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ttttMtt&UUUU 
#*8 U ft 

# # nun u 

8 8 8 
#88888888 
S 3 

3888888 8 
3 8 8 
888 88888 
8 8 8 8 
8 #88 8 8 
8 8 8 8 
8 ##### 8 
8 8 8 8 
it ##### # 

8 8 8 

888883883 
8 8 8 
# 8388888 
8 # 

######### 



M-+4.UBS3SS8 
8 ### 8 3 
#88388888 
8883388 8 
888888888 
8 8888888 
838888833 
8 883 888 
###8#8#Stt 
838 8B88# 

######### 

# 8 88888 

######### 
nun 8 888 

####8838# 
888 8 883 
#######8# 
883 888 8 

######### 

##### 888 

«#tt##88#a 



&UMUWU sit t£ 
8 8 8 
383888888 
3 tt 

n nnnun » 

3 8 n 
nnn 88883 
it 8 a 8 
n uukku tt 
u n 8 
# #88 # 
n u # 



nnununn 



# 

a 

8 



8 

a 
# 
•a. 

u 

8 
8 



8 8 
# ### 8 
3. 8 8 8 
### ### 
tt tt U 

##### 8 
3X8 



##»###### 



10 

20 
30 
40 
■50 
50 
70 
50 
30 

110 

120 
130 
140 
150 

dl f 

10 

1&0 

170 
160 
120 

200 

210 

1000 
1010 



DIM 
DIM 
DIM 
DIM 

LET 
LET 
LET 
LET 
FOR 
FHR 

Let 
next 

NEXT 
LET 
IF d 
i ="8 

t tf— a 

d$ 



z 

X y 

OR 

00 
LET 
IF m 
LET 
LET 
LET 
GO T 
LET 
LET 



3 $ . t ; 

b$ E 

c$ I 

X=5 

y =2: 
z =9 

h» =1 
a =S 

h=:2 

d$ fa , bj =" 888838888 
b 

d$ >:x ,y ,2) =" " 
ttx+2,y,z.i = '#' 
■' OR d$ (x , y +'S 
;<=■■#" DR dS 



53, li.l 

1000.* 
1000.1 

1000) 



TO 





i x ', y ; z -h .i = :; S ;j 

hi =w -1 

=0 THEN 30 TO 

x =CODE a $ inO 

y =CODE b$ 1'tiU 

Z =CDDE C$ i'fcO 

14-0 

a$ Cw S =CHR$ S 

b$ f w) =CHR$ y 



OR dsv.t:- 

j»J ="#" OR 
I H£N SO T 



■'000 
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03 
04- 

e=> 

03 

T 

05 
1 



CI 













LET C $ lUO =CHR$ Z 

LET W=W+1 

LET r = INT ( R ND * & > 

LET c = t"r =0.1 - ff =n 

LET d = ( r =2 .1 - t'r =3 t 

LET e=ir =40 - ?T *©) 

IF d $ ( X *S#C / U *2#rf il *S*E-J =i " 
HEN GO TO 1040 
LET d$i.>!+c,y+d,z+e.i=" " 
LET dS Lx +2*C , y +2*d ,Z -*-2*e.J =' 



1110 LET x =X + 2*C 

1130 LET y=y+2*d 

1130 LET z=z+2*e 

1140 GO TO 14-0 

2000 BORDER 0: INK 



RARER 



3010 
2020 
d030 
2S40 

41050 

2050 
2i@0 

2110 
2120 

3000 

3010 
3020 
3S30 

3040 

jS50 

3055 

3060 

EN GO 

3070 

30S0 

3090 

3100 



a -rn 



2C-- 

b> i 

to ; 



EOR b=2 

print d$ ra 

PRINT d$ f* 
PRINT d$l"5 
NEXT b 
INK 7 
LET X=l 
LET U =2 
PRINT RT 19 
PRINT FLSS.H 
IF X=19 AND 
LET zt=INKEY$ 
IF Z$ = "" THEN 
LET c e (Z * = "6" ,'l 
LET d = iz4 = "S"J 
; '9" J - (Z$ = '"4-".l J 
IF y+d-,'0 THEN 



"u 10 J 



30; ".V," 

1 ; RT X , y ,: ' 
y -30 TH£H 






IF SCREEN* 

TO 3020 
PRINT RT X 
LET x=x+C 

LelT y =y +d 

GO TO L5000 



GO TO 3020 

- (Z $ = "7'M 

- fZ* = "S'*.l -J-Il 

GO TO 3020 



(X +C , y+d.l ="tt" Tj? 



Scrolling Maze 



In the next program in this section of the 
book, the maze is four times bigger than 
the screen, which scrolls across when you 
hit the sides. There are two versions 
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given. The first scrolls using a machine 
code routine, end the second version does 
much the same thing in BASIC. 

The object of the game is tD move from the 
top left hand corner of the maze to the 
bottom right hand one using the cursor 
keys. Delete lines 3D7D and 3075 if you 
don't want to leave a trail. 



tttt8tt»tttt88tt8 

a* 
Sr38# 8 

a as 
was 
a tt 
nuunu 



uunun 

u 
tttttt 
tt 
n n 
a » 



tt 

tt 
s 



ass 
a 

3 



tt 
Stttttttt 

a 

tt tttttt 
s a 



tttte 
tt a 



ttasa 
tt 

a 

a 

a 

tt 
aa 

a 

aatt 

a 

a a 
a 

aaa 

a 

a a 

tt 

Has 

8 8 
8 8 

a 



tttttttttttt 

a 

a aaa 

a 

aaaa a 

a 

ttnatttt 

t* 

8tt8J4 8 

8 
tttttttttttt 

a 
aa »tta 

a 
ssaa a 

a 

a 
atttttttt 



ttBBtta»aa»atts»aa 



u a 

nun nnn n n 
a a a 



aaaeas aaaaa 
tt 
a 



aaa 

a 

aaaa 



a 
n 

a 

a 



a 
a 

a 
a 
aaa 
tt a aa 



n 
n 
a 



u 
a 
a 
a a 

ttattaaa 



a a 
a aaa 
a 
tt tttttttttt tta 
a a 

s nnunnnn 
& n a 

■a ttwa aa 
a a a 
« a aaa 



aaa a 

a a aaa 
aaaa aaaaa a a 
a a 

fl sss8888 aaaaa asaaaa 
n a 



a. 



1© 

22 

25 
30 
4.0 



CLEAR 52999 „._.-. 
FOR -a =60000 TO 5S3-5o 
READ D 

POKE a , n 

NEXT a 

DIM C S ( 45 . 65J 
DIM 3* £1000) 

RANDOMIZE 
DIM b$ E100©> 
LET X=43 
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5© LET 

50 LET 

70 FOR 

3© LET 



M =63 

Z=l 

!» = 2 TO 

C $ (UO =" 



44 

BJtSSSBBBttttttflltttS 

jjatt»»»»tt»Ktt»tt»tt» ** 

30 NEXT W 
100 LET c^(X.. U> = " 
IIS IF C$ IX +2 . M J = "»" OR e$tx-2, 

i*j te**jt" or c* (x . g+a.i ="»" or cpiXs 

g-2>="tt" THEN GO TO 10OS 

120 LET Z=Z-1 

133 IF z=0 THEN GO TO 20SS 

ld-3 LET x=CODE a$fz2 

1S3 LET y=CODE bS l£i 

130 GO TO 100 

1SS0 LET 3$CZ3=CHR$ X 

1010 LET b$(I) =CHR$ y 

1020 LET Z =Z +1 

1030 LET r=INT (RNDf4) 

1S5 4-0 LET c=ir=0. , i -(f = i) 

135S LET d=(f=2l -lr=3) 

106O IF C$ (X +2*C , y i+a*di =" '"' THEN 

GO TO 1030 



y +2 *d J = 



2370 LET C $ Cx -t-c , y 

1S5S LET C$(X+2*C 

1 090 L ET X =X +2 * C 

11S0 LET y=U+2*d 

1110 GO TO 10O 

2000 FOR y =2 TO 23 

2010 PRINT C$fW,2 TO 335 

202S NEXT uj 

aiss LET X=i 

2110 LET y =1 

2120 LET p=2 

2130 LET q=2 

3000 PRINT FLASH 1 ; RT x.y." 

3010 IF P=23 AND q=33 THEN 



PRINT 



20 .30; "X' 



LET I$=INKEY$ 
IF Z*="" THEN 
LET C = (Z* = -'e"J 
LET d= (Z $ = "S") 



GU T4J 3SSS 
- tz$ = "5""/ 



(x +c.. y +d'i ="»' 



3020 
3030 
304.0 

3SB0 IF SCREEN? 

EN GO TO 3020 

3S70 PRINT AT X ., y .; "B" 

3030 LET X -X + C 

3090 LET y =y + d 

3120 IF U=0 THEN GO SOS 5300 

3130 IF y=31 THEN GO SUB 5100 

314-0 IF X=0 THEN GO SUB 5200 
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3150 
3150 
3170 
Ht> ^ 

31S0 

5000 
3010 
5015 
S020 
5030 
3S4-0 
5090 
3 13o 
5110 
5115 
S12E 
3130 
S14-0 
519© 
5200 
5210 

5220 

52 90 
330 
5310 

3320 

5+31^ 
3390 

3000 

90 IS 
-3320 
9100 
3110 
3120 
3130 
3200 
9210 
3220 
3230 
924-0 
3250 
9cS0 
9270 

32 SS 
3290 

33 00 



P=23 



IF x =21 THEN GO SOB 5300 
PRINT FLASH 1 ,; RT X.y, 
IF x=20 AND y=30 AND 
= 33 THEN STOP 
GO TO 3010 
RANDOMIZE USR 6S9S1 
LET y=y+l 
LET q=q-i 
FOR U =0 TO 21 

print at w .. e; c$ ip +w.. q 

NEXT w 

RETURN 

RANDOMIZE USR 6S000 

LET y=y-l 

LET q=q+l 

FOR W=0 TO 21 

PRINT AT W .. 31.; C 5 iK -t-Srf 

NEXT Hi 

RETURN 

RANDOMIZE USR £0111 

LET X =X +1 
LET p=P-l 
PRINT AT 0,0 



R 



sr3D 



C$ Kp , q TO q +31 



RETURN 

RANDOMIZE USR 60043 

LET X=X-1 

LET P=p+1 

PRINT AT 21.. 0.. C? ip-i-21, q TO 



RETURN 

DATR 33.0, 64-,S5,6S, l'i2>6.>3 

OflTfl 35 '.94- .43 . 1 15 ., 35 , IS , 24. 

DATA 114,35,61 , 3S,,Sd£ .. 20 1 

DATR 33 .255 .57 ,2£,S,52, 192 

DATR 6,31.43, 94 .35, 115,43 

DATA 16 .249 , 114. .43. .51. ,32 

DATA 242 ,201 

DATA 33,0,64, 17. .32, 54., 229 

DATA 213 . 14 , £3, S .32 ,2S, 119 

DATA 12 1 . £30- 7 , 254 , 1 , 32 , 2 

DATA 151, 16, 35, 19, 15, 241, 1 

DATR 40 . 19 . IS!,, £SO ,7, 254, 

DATA 40,22,254,7,32,225,21 

DRTA 17 . . 7 , 25 . 209 , 24 .217 

DATR 209 . 225 , 20 . 3S . 124 . 254 

DATA 72,32,204,201,229,33, 

DATA 7,25,235,225,24,196 

DATA 33 ,255 . 57,, 17., 223j c;7., 2 



fej 



3310 DATR 213,14,23,5, 32 , 26 , 1 19 
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Q"20 


DHTH 


9330 


DRTR 


9340 


DATA 


935© 


DRTfl 


9360 


OflTR 


9370 


DFlTfl 


y330 


DRTfl 


9390 


DRTfl 


94-00 


DRTR 



121 , 23G.7 .254.1 
151*. IS . 4-3 . 27.. 16 
4.0 ,21. 121 j 230, . 
40 . 24- , £54- .. 7" .. 32 . 
1? , . 7 . 157 . SS7 
24- . 215 . 209 , 225 
124. 254, 79. t 200 
229", 33 .0.7. 235, 
S2 . 235 '. 225 . 24- . 1 



32.. 2 



34 

25 
£25 

32 . 
21'. 37 
24 .201 
16 

93 



1 . IS 

4,, 

. 21; 

239 



^■j> ? 



This is the BASIC version: 



10 DIM 
20 DIM 
40 LET 

re for 

S0 LET 



C 3 I 4 5 P- Fi *s 

a| (1000)"": DIM 

X=43: LET y=6/ 

ft* =2 TD 44 

C$CuO=" ttttBa888K8tt»ttattS 



fa$ £1000' 
LET Z=l 



Sjfftttttttttt«B»«tttttttt» " : NEXT tf 

100 LET C 4 C;< , jJ J =" " 

110 IF C* (X+2.y^ *"»" OR C$(X-2. 
M3="tt" OP c $ (x . u +2> ="»" OR C$1x. 



13S LET 
. 2000 



THEN GO TO 1000 
Z=Z-1: IF Z=0 THEM GO 



X =CODE 3$ <Z J 
U = CODE b$ CZ) 
a* (Z) =CHR$ x 
bj(z) = CHR* y 
r =INT {RND*4 J 
c = ( r =0 '} - i r = li 
d = t »~ = 2 ': — i r = 3 f 
C $ EX +2 * C .. y i-2 *d 'J = 



GO TO 10G 
LET Z=Z+1 



THEN 



140 LET 
15S LET 
1000 LET 
1©10 LET 
1230 LET 
104© LET 
1050 LET 
1030 IF 

GO TO 1030 
1S70 LET c$iXfC.a<-di ="' 

LET i:$(Kf2*C ,y+2t-d)=" " 
LET X = X +2 * C : LET « ==ty *-2 *d 
GO TO 100 

LET X =1 : LET y = 1 *. LET ^ =2 
LET *q-2: LET C$U3.63i="X" 
PRINT RT 0.. 0; 
FOR W =p TO P +21 
PRINT C$(W.. q TO <3+31) 
NEXT W _ „ ,, 

PRINT FLRSH 1; RT X .. y, * * 
IF X=20 RND y=30 AND p=2^ H 
ND q=33 THEN STOP 
302© LET Z$=INKEY$ **»**.* 

3030 IF Z$ = < "' THEN GO TO 3020 



1030 

1090 

1110 
2S0S 
2*3 10 
2090 
2100 
2110 
2120 

3000 

3010 



200 



504S 
3030 
3060 
EM G 
3 70 
3075 
3030 
3120 

q-g- 

3133 

•3 =Q 

31i0 

3150 

c =p 

3153 



LET C= £Z* = "&":' - ;Z$=" «■ 
LET d = (Z $ = "©"} - '.Z$="5 
IF SCREENS (X + C y *dl = 

TO 3020 

PRINT RT x ., y ; "S" 
LET c$ ix+p .. y +3? = » ,_ 
LET x=x+c: LET y=y^a 
IF u=0 THEN LET y=y+A: 

1 ■ GO TO 2090 , 
IF «=31 THEN LET y=y-l 

+ 1 ■ GO TO 2090 

IF X=0 THEN LET X=Xt-l'. 
1: GO TO 2090 

XF X=21 THEN LET x = X-l 
+1- GO TO 2090 

GO TO 3000 






TH 



LET 

LET 
LET 
LET 
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Rollermaze 



This maze program was written by Nei L 
Pellinacci. It was written far the 16K 
computer. It wilt run on the 46K machine 
but may be difficult to modify because the 
program's machine code wi LL have to be 
a Ltered . 

The aim of the game is to travel across a 
randomly-generated maze, first from top to 
bottom and then back to the top again in 
the shortest possibLe time. To enliven the 
game, bits of the maze roll left and the 
rest rolls right. You, however, don't 
ro I L anywhere. 

You have three Li ves and you lose one 
every time you collide with a chunk of 
maze to your Left or to your right. A 
siren noise sounds when this happens. The 
number of lives, together with the time 
taken and the best time so far, is 
displayed at the top of the screen. 

The title page sequence begins when you 
start the program. This tells you which 
keys to press and aLso the top ten times 
and the names of the players which 
achieved them. 

Presssing "K" at any time in the sequence 
will alLow you to change the controL keys. 
Just follow the instructions. "S" will 
leave the title pages and start a gamB. 
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ROLLERMAZE has five Levels of difficulty. 
I suggest you start with Level one, then 
Look at Level five in action to see the 
difference. The clock starts as soon as 
the maze appears. If your final time is in 
the top ten, you'll be asked for your 
name, which you will then see in the best 
scores list. 

To put the game into your machine, carry 
out the fol Lowing, and remembering to 
VERIFY after SAVE: 

1/ Type in program one, the machine-code 
Loader program, and run it. You should get 
the message '9 STOP statement' if the 
program is correct. Now save this program 
on tape as you may need it Later. 



PROGRAM 1 . 



Ha chins Coda 



5 REM bwia PoKar 

10 POKE 235S3 . 10© 

30 CLEfiR 31339 

3© RERE) 3da 

4.0 RESO byte: IF byt3 = -i THEN 
GO TO 30 

=0 IF by t £ -S53 THEN STOP 

50 POKE* add . by r.e 
T8 i_ET 3dd=3ddti 
SB GO TO 4-3 
1S@ DfiTfl 32SES . 33 . 95^64 ,303. L^S 
125 3w i§2 ,. 5— . 2@5 iSB - 125 33 ^ 22 
i 7&A ! 205 t ISO , 125 » 33 , 12© , 54 , 2S5 ., 2 
00 . 125 . 33 , 152 , 6* , 205 , 20© . 125 .. 33 , 
& . 72 , IT , 32 , 

110 DRTR 2©5 , 206 . i£5 , S:5 , 2feS , 15S 
. 1 25 .. 25 j, 205 ,. 200 , 125 .. 25 .. 205 .. 150 .. 1 
■b"=; 

^120 DflTfl 25 , 205 . 200 . 125 ,. 25 ., 205 .. 
150 . 125 . 25 t 235 , 2£73 . 125 . 25 . 2SS - 15 
, 125 
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130 ORTR 3^ , S , 86 , £05 . 2isS , 125 . 25 
, 205 . 153 , 125 . 25 . 205 , 20S . 125 ,35.2 
05 , 15© . 125 .25 .205 , 2©0 , $JsS .2S3. . -1 




, 251 , 36 . 193 . 15 , 235 ,241. 225 » 209 . 1 
23.201,-1 

150 DfiTR 32200 , 19? . 2 13 , £2S , 245 . 
17,32^.6,8, IS? .43,25. 126 . 203 . 31 
.. 24-5 , 167 . 237 . 32 , 35 , 241 . 6 . 32 . £03 . 
30,35, 15,251, 157,237,82,35, 133, 1 
t=. , 230 , 241 , 225 , 239 . 193 , 201 . -1 

lb0 DRTR 32250 . 33 , . &4 . 5 , 192 . 12 




1 , 254 , 90 , 32 ,4,1,2,0, 23 1 . 254 73 . 
32 , 4 , 1 , 3 , © , 20 1 . 254 ,30,32.4.1^4,0 
,201, 254 ,71.32.4 .1.5.0.201.1,0,0 
,2S1.-1 

180 C-flTfl 32400,33,0.33.5.24,14. 
31,35, 125,43, 119,35 . 13.32 .246 ,54 
, S , 35 ,16,241. 20 1 . -1 

190 DATS 32500.5.1.137,33.15.0, 
17 , 40 , © , 223 , 205 ,161,3, 225 ,17,8,0 
, 167, 237 . 30 . 12S . 254 . £55 . 32 . 237 . 1 
33 . 16 . 230 , 201 . —1 

195 DRTfi' 3255S ?6 . 1 , 197,33,0.3, 1 
7,1,0 .229,205 . 161 .3 .225 . 17, 15 .0 , 
167 . 237 . 32 . 32 . 240 . 193 , 16 , 233 , 201 



2/Type RUN again. When the program stops, 
type NEW to remove the program, and 
nothing eLse, as you stiLL need the 
machine code. 

3/ Type in the main program, program two 
which foLLows. Then save it directly after 
program one. To save it, use SAVE 
"ROLLERMAZE" - do not use Line 9600 in the 
program. 
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PROGRAM B, ..Main Ga&e 
1 REM 



** Rolling r-ian^ * 
Ns i l Pe L Linacci 



SS0 CL5 ; LET C$="ENTER LEUEL O 
f=- DIFFICULr/ (1-53 " 
61© INPUT iBS) "LEU 

S20 IF LEU -: 1 CXR L.z.\.f:~ PR LtV ( > 1 
NT LEU THEN 1 LET Gfi = "ENTES R wHOL 
E r-iUHBER. 1 TO 5"r GO TG 81S 
330 POKE 32551 . 5 : POKE 32555 , 1 : 
POKE 32557.1: POKE 32565,1 
300 BORDER 2. PfiPER 7: CLS 
310 PRIMT RT 0.0; PRRER 2: INK 
THE ROLLING rifllE 



32© PRINT 

0; "time ;■ 

000" 

330 PRINT 
1 . RT 1,4; " 



... -i. j S& , Al ... w , -- . .. —i-t 



INK 5; PRPER 
"; RT 1, 17; " <: 



0; OUER 
1 ; RT 1,£7 



94© PRINT RT 1,23, PRPER 0; INK 

5; H (1) 

350 PRINT RT 2,0: INK l.;S$,RT 2 
1 .0; S$ 

960 GO SUB 8000 
1005 INK 7 
1010 FOR fi=4 TO 20 sTEr 2 : PR IN ; 

RT R .0, "*«**4*$*+*«***#*$**a**$ 

mmtftmmnt^ ■■ next r 

1030 FOR R = l TO LEU; FOR E-3 TO 

2© STEP 2 

1S40 L ET 5 1 = I NT i RHO *3@ * 4~% : PS IN 

T RT c,Bl; "S* : " 

1©50 NEXT B: NEXT R 

1050 FOR R=l TO LEU; FOR B=4 TO 

20 STEP 2 

107© LET El-INT iRN!>£3©£ *£; PR IN 

T RT 6,61. INK 2; " 

1030 NEXT 3: NEXT R 



1020 FOR R = 3 t Q 2S . PRINT RT R, 

; OUER l; INK 2; 5$: NEXT R 

110© INK : RETURN 

1900 GO SUB S©0 

191© LET LIUE3=3; LET T=S 

2030 LET FIN^21: LET L -2 : LET G 

15 

201© PRINT RT 1.6; PfiPSR 0; INK 

s ; T ; RT L . C : INK " 2; PBPS.R 7_; - " 



G 
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202© LET H-USR 32338: IJF R =B THE 
N GO TO £j.2£ 

2S23 ir r = i"then tp l;>2 then if 

aCREEN$ (L-1,C3 (>"" THEN LET L=L 

-1 

203© IF fi=2 THEN IF L<51 THEN IF 

SCREENS £L~2„ C? < > " " THEN LET L = 
L+l 
2035 LET C=C+ (R=4 SND C<32j-!;R=3 

RND OS) 
204-0 JF 5CREEN$^^L A CJ zV~~ TH£H *- E 

S35B ji 5 l7>F1N THEN PRINT fiT L,C 

; INK 1 ;".*■': LET T=T+2; GO TO 20 

20 

2050 If FIN-SI TitEN LET fIN=£: G 

TO 2010 

2070 FOR B = i TO 2: FOR ?.=4S TO - 

20 STEP -2: BEEP . 004:R; BEEP .0 

04^-23. BEEP .0Sa.33-S. BEEF .© 

04,33-h-15. NEXT P. NEXT B 

2030 SO TO 2200 

2100 i_ET LIVE£=LIv£5-I PRINT PT 

1 , 13; PflPER~i ; "~ INK "~ S ; L ll<ES 
2110 IF LIVES C>© THEN GO TO 230S 
2120PRINT ST 6,0; INK 1;5$;RT I 
^ , ; 3£ 
2130 PRINT RT 6 ; 11; INK 5:"GRME 

O'JER" ; RT 15.11; "Gfit5E OUER" 
214-0 FOR R = l TO 255 : LET B=U5R 3 
£300. NEXT R 

2150- FOR R = 2 TCJ 150: NEXT R: GO 
TO 4000 

223S run P — 1 TO IS. IF T\HiRi :H 
EN GO TO 2230 
2210 NEXT ft; GO TO 408S 
2230 FOR B=3 TO R STEP — 2 - LET H 
{5 + 13 =H (53 . "LET H$ iS+iJ =Hi =:S; ! M 
EXT 5 

224-0 LET HCR*=T: INPUT "PLER5E T 
YPE YOUR NPHE:'*' LINE N* . LET H$ 
iR3=C-s. LET H$l&, TO LEN N*-f-2.i=N 
$ 

2250 GO SUB 3S00 : GO TO 4070 
4O00 BORDER © PRPER S: CLS RE 
H TITLE PRGE5 

4010 GO SOB 5IO0: LET INK=5: 5G 
SUB 4500: REN TITLE 
4020 FOR C^I TO 20: GO SU£3 4509: 

IF CHR$ PEEK 23556 = "5 I: OR CHRS 
PEEK 23556="'K'' THEN GO TO 410© 
4030 HE XT C 
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4040 GO SUB SS00: REM OPTIONS 
4050 FOR C=l TO 2©: GO SUB 4500: 

IF CHR$ PEEK 23555 ="5" OR CHR$ 
r?EEK 23556 = "H." THEN GO TO 4 103 
40S0 NEXT C 

4070 GO SUE 5500: REM HI -SCORES 
4030 FOR R=2 TO ESS: Ij- OHHS PEE 
K 2355&="S" OR CHR$ REEK 23555= 
K" THEN GO TO 4100 
4090 NEXT R: GO TO 4000 
4100 LET R = USR 32500; IF CHR$ PE 
EK 23555 = '* 3" THEN GO 5UE 4-23B . G 
O TO IS0S 

4110 GO SUB 4200. GO TO 4300 
4200 FOR R=2 TO 34. LET B=USR 32 
250+USR 32400. NEXT R: RETURN 
430© REM CHRNGE KEYS 

4310 INK S: BORDER 5: PRPER 5: C 
LS : BORDER 3 

4315 POKE 32557 > 2: POKc 3£53l.lS 
: POKE 32555,1: POKE 52555 ., 15 
432© PRINT RT 1.10: INK S; "REDEF 
INE KEV3" „ 

4330 PRINT ' INK 2.:" FRE35 \ Ov 
R New KEY WHEN EnuH"'TH5 "5; VROt-i 
FT RPPERRS" ^„„ 

4.34_0 PRINT * ' ' INK 2,;TSB II; PRP 

4350" LET K=PEEK 23555; IF K =255 
THEN GO TO 435S 

4350 POKE 32311.K: PRINT PRPER 7 
; CHR$ K __ 

4355 LET R=USR 32550; FOR M=l TO 

ISO; NEXT R .««-,'«*> 

437© PRINT ' INK 2 : THE 12; PRPER 

7;"DOUN ,, :TSB 22; 

4350 LET K=P£EK 23555: Ir K=255 
THEN GO TO 4350 - 

433© POKE 323 29, K; PRINT PRPER .- 
:OHR$ K „ _ , ^_ 

4395 LET R=USR 32550; FOR R=2 Tv 

250: NEXT R 
4400 PRINT ' INK 2;TRB 21; PRPER 

7;"LEFT":TRB 22: 
4410 LET K=PEEK 23555: IF K=S55 

THEN GO TO 44 2© _ 

442© POKE 3232?,K: PRINT PRPER .- 

;CHR$ K - i •» .*— 

4425 LET R=USR 3255©: FOR R=l TO 

150: 
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4-4-30 PRINT * INK 2 . TfiB li . PfiPER 

7: "R2GHT";TRB 21; 
4-4-4-© LET K=PEEK 23556; IF K=255 
TH5N GO TO 4-4-4.0 
44-5© POKE 32335. K: PRINT PfiPER 7 

- CrfRS ? : 

4455 L£T fi=U5R 3255S. FOR R-l TO 
13©: NEXT R 

4 463 jr? X £T\ ' - XN ^. S; TFiB ~ X: FHPER 

7; "RejURi " ; > «5 £1.' 
4470 LET K=PEEK S355&; IF K=£55 
THEN SO TO 447S 
44-3© POKE 32343. K: PRINT PRPER 7 

. CHR£ K 

44-30 LET R=USR 32553; GO TO 4003 
4300 INK INK RESTORE 4-633: FOR 
R=S TO 2: RERD R5- PRINT RT R,I; 
R$: NEXT R 

4513 FOR R=3 TO 6: _REfii> S$; PRIN 
T ST R , £ ; R£ : HEXT i-i 

4-52© FOR R = ~7 TO II: REhD H$ ; PR I 
NT RT R,I4;Rt: NEXT R 

4530 PRINT INK 7;RT 8,i; "ijri i ifii! 
=,y";RT i3,4.. "N6ir';RT l2 ; I.;"Pel 

I i n 3 c c i " 

4540 LET INK = INK-M; IF INK=5 THE 

N LET INK =1 

4535 INK =9: RETURN 

1 i^* 5 " 



4600 OH i B 

4513 DRTR 

465© DRTR 

4b30 DRTR 

4540 DRTR 

d&5© DRTR 

4550 DRTR 



■ 

1 o 



i 



li if 



E 
I 



i fill 
i ! "UIS 



1 









4670 DRTR 

45 8S DRTR 

4530 DRTR 

4700 DRTR 

4-7X0 DRTR 

5030 REM OPTIONS 

531© FOR R=13 TO 21 

0.3$. NtXT R 

5020 INK 5: PRINT RT 15 . 13 . "PRE6 

S:";RT 17, IS; BRISHT 1,"5"; BRIG 

HT 0;" TO STRRT*;RT 13.7; BRIGH 

T l;"K"; BRIGHT ©; " TO GHRNGE K 

SV5" 
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5030 RETURN 

5130 INK 6: PRINT RT 15.3: "GRME 
CONTROLS" ; RT 17.5:""- LEFT" . RT 17 
,22;"- UP" ;RT 19,6, "■ - RIGHT', RT 
13 .21 : " - DOUN" 

5li3 PRINT BRIGHT 1; RT 17 ,4; CHR$ 
PttK w23£7;hT 3.7,i=S; CH«$ PEEK o 
2311; RT 13.4-:OHR$ REEK 32335; RT 
13 .20 , OHR$ PEEK 3<=313 
5123 PRINT RT 21, II; BRIGHT 1:CH 
RS PEEfi. 32343. BRIGHT 0;" - RBGR 



5130 INK 3. RETURN 

5500 BORDER : RRRER 3 : C* 

K 7 ; PR INT RT 0.6; INK 5 ; 

i;"TODhfr"5 BEST SCOREt" 
551© FOR R = l TO 10: PRINT 

" ; K$ i R3 ; " . . ■ 



.5 : IN 
BRIGHT 



, H *R} 



ND R i !10; R; " 

NEXT R 

5515 PRINT »S, INK 5;" P 

RESS »; BRIGHT 1:"S"; BRIGHT 3; " 

OR ": BRIGHT I;"K" 
5520 RETURN 
3030 REM JINGLE 
3010 RESTORE 5400 
5S20 READ R.B: IF R=9S THEN RETU 



3025 IF fi=S5 THEN PRUiE B ~5 : 
TO 8020 

533© BEEP R-'3 ,E-3^-LEv, 1 : GO TO 
© 

3430 DRTR ,3.4, 
3 , 4 i . 6 » 10 . . 3 ^ 4 1 
54 1© DRTR SB . IS 
34.20 DRTR . 4 , IS 
.3,4.5 

3430 DflTH SS, £0 
353© DRTR 99.w 
9000 REM FORM UDG * 5 
SSI© RESTORE 3©33 : FOR R=UiR 
3"*7: RERD B: PDKiz I 



3,4. . s , is , . ; 

3,4, ■ 3 = l£> . 1 
.4..12, -4,5.. 
- 5 , ., .6,4. 



GO 
302 
4, . 

-,0, 



R' 



TO USR 

NEXT R 
303© C-RTR 15 . SB . IS, 124 , 16 ; 4S,&6, 
55 . 24 , 126 , 125 , 255 , 255 , 126 , 125 , 24 

3050 LET S$=" 

S350 DIM Hi'10>: DIM H±£l©,2©> 
3070 FDR R = l TO 13: LET HgiRS ="N 

EIL PELLINRCCI ....": NEXT R 
305© FDR fi = 1 TO 13 : RERD B : LET 
H (R3 =B: NEXT R 
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3030 DftTfi 350 , 390 , 439 , 470 , 518 , 55 

© - 590 , 530 f ?SS , 1000 

3100 LET D*=" ................... 

3230 GO TO 4028 

3500 FOR Z=3S550 TO 32560; PRINT 

Z ; " " ; PEEK Z : NEXT Z 
3510 STOP 

3B0© SSl'E "ROLLERMfsZE" LIME 3700 
; Sf5UE 'ROLLERCDDE'TPDE 3£0S0 . SS? 



3510 STOP 

3700 CLEAR 31333: LORD ' "CODE : 

GO TO 30©0 



User Defined Graphics 
* ■ a n = 



4/ Type RUN 9000 . When the title page 
appears, press "S" to pLay. If the program 
crashes, you've made a mistake somewhere. 
If the program runs proper Ly , try 
redefining the keys. Test everything. 

5/ When you ■ re happy with the program, 
save your final copy, using RUN 9600. Then 
check it by using VERIFY "R0LLERMAZE" and 
then VERIFY "R0LLERC0DE M C00E 32000,600 

6/ PLay the game, either loading it, or by 
typing RUN 9000 

The program, as is pretty obvious, is 
written in BASIC and machine code. The 
machine code reads the keyboard, rolls the 
maze and handles sound and other special 
effects. Various POKEs in the program 
control these routines. Line 9500 can be 
used for checking machine code by changing 



210 



the addresses. There is enough space in 
the machine code memory map for your own 
special effects routines, if you want to 
add them. 



If you own a 48K machine and you want to 
move the machine code higher up in memory, 
you must remember to: 



i/ Change 

programs 



the USR addresses in thB main 



ii/ Change individual bytes within the 
machine code, as some routines call 
others. For those who know about such 
things, the two address bytes folLowing 
CALL (205 decimal! will have to be changed 

iii/ Hake the necessary adjustments to the 
machine code loader program 
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Thrcc-D Maze 



This great program was written by Scott 
Vincent. You need a 48K computer to run 
it. 



A ten by ten maze, with a singLe 
ent ranee/ ex it is stored in the computer' s 
memory. The object of the game is to 
wander through the maze, find the treasure 
and then get back to where you started. 

If you Lose your sense of direction, you 
can press the "R" key for a repeat. This 
takes you through the maze from the 
beginning, showing you quickly aLL of your 
previous moves. When the repeat has 
finished, you continue on with your trek. 

Use the fa I Lowing keys to move around the 
maze: 

1 - to move Left 

2 - to move right 
- to go forwards 
L - to turn around 

Note that you need to press L twice in 

order to turn through 180 degrees; you 
cannot press 1 or 2 twice. 

If you manege to get out of the maze with 
the trasure, you'LL be toLd how many moves 
you took. The maze is not generated at 
random, so it is the same from game to 
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game. However, the treasure is pLaced in a 
random Location each time you run the 
program. 



5 BOR0ER 5; PfiPER 5: INK 1. C 

U 'i0 RANDOMIZE : DIM H X&* 1 OXH N 
t9}7 DIM M$i2®'l,&> - &X*i N$f2e0,i 

*^ J op FOR X = TO 31; RERO y; POKE 

^ii fdr^ : tS e 3 t S«m> tft»i* w 

XT 4.S FOR x=l TO 9; R£RE> Nix): NE 

XT 5S_FOR x=l TO 200; RERO n$ixi: 

N I§Vc>R X=l TO 200; READ N$(x): 

N ?S T LET B * = "WSi": LET £•££' &% 
T i_ = i : LET Tr =0; LET X =1 fINT iRN 

"60 LET 1_3=201*(X=I OR * =* ?*? * 
=e OR X=7.i +81* f,X=2) fl27*(X=3J +16 

*9m~LEf Lb=201*(.\'=4 OR X=6)tl00 
*(X=1J +S4-*1X=2J +122MX=3) +172* ix 
=Si +196* fX =7) __ „ 

190 LET LC=94-*lx=i."'+bo*i.x=2j t!2 
** (X=3) + 131* t"X=<U +117* IX =5) +191* 
(X=6 J +199* C,x=7> 

±10 CLS ; FOR X=l TO S„ IF f»* f i- 
,X.i ="0" THEN GO SUB ftf'fjta 
' 120 NEXT X 

130 FDR X=l TO 9; JF M* fL , XJ ="1 
" THEN GO SUP N(XJ 

14-0 NEXT :>: 

150 IF 1_=2 OR I_=i_a OR L=Lb OR L 
=i_C THEN GO SUB 22 0. IF L =2 BNO 
Tr=i THEN GO TO 70 

160 LET fi$=INKEY$: IF H$="" THE 
N GO TD 1&0 




ntS ££ "5*?" r " "THEN GO TO 300 
190 JF R=0 THEN GO TO 160 
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200 BEER .003,0; LET L=P. LET © 
$ = &$+("&" fiND L^100^+r"0" fiN£> L < 
10.1 +STR$ L 

210 LET P$=P$rR5; GO TO 110 

£20 IF J_=2 PND Tr=0 THEN C1_S . 
PRINT AT 10,12; FLASH 1; "ENTRflNC 
E" : RETLIRN 

330 IF i_=2 THEN CLS : PRINT PT 
S,4; "Uell done, that tooK you";R 
T 10 V 11;LEN R*; " »oves,";BT 14,0 
; "press any *ey for another game 
»": PRUSE 4e4: RETURN 

24.0 IF L=L.3 THEN PLOT 116,99: D 
RAU OUER l;22,0.- PLOT 116,76: DR 
AU OUER 1;22,0: RETURN 

250 IF L=Lb THEN PLOT 100,115; 
DRAM OUER 1;54,0; PLOT 100,60; D 
RAM OUER 2;54,B; RETURN 

260 IF L=L.C THEN PLOT 72,14-3; D 
RRU OUER 1 ; 1 10 , : PLOT 72 , 32 ; DR 
AM OVER !:■ 110,0 

270 IF TT=1 THEN PRINT RT 9,11; 
"YOU sLready";ftT 10,12; "have the 
"; AT n ,12; " treasure - ".- return 

280 LET Tf^l: PRINT RT 9,ll;"YO 
v have*';RT 10 , 11 ;" found the"; AT 
12,11; "treasure- " 

290 RETURN 

300 LET y=I 

310 FOR n=l TO L.EN Q$ STEP 3 

320 IF n=l THEN GO TO 39© 

330 IF P$iy>="i" THEN PRINT Si; 
RT 0,5; "A" 

34-0 IF P*fy.1="0" THEN PRINT #1; 
RT 0.. 15; "B" 

350 IF P*ty.i="2" THEN PRINT 81; 
RT 0,25; "€•'• 

350 IF P$ Cy.* =" I 
RT 1 , 15; "D" 

370 LET y=y+l 

35© FOR X=l TO 25 STEP 5: FOR S 
=X TO X+* STEP 1,5; BEER ,004-,X: 

BEEP , 004,X+S: NEXT S; NEXT X 

390 LET L=URL 0$ ttt TO n +2) 

4©0 CL.5 ; FOR X =1 TO 9: IF H$ fL 
,XJ="0" THEN GO SUB HtX.* 

4-10 NEXT X 

420 FOR X=l TO 9; IF M$ iL. , x ) =** 1 
" THEN GO SUB NfX.< 

430 NEXT X 
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THEN PRINT #1 



440 IF L=2 OR L=Ls OR L=Lb OR L 
=LC THEN GO SUB 220 

450 NEXT Fi; GO TO 16B 
5000 PLOT 40, 175; DRRU 32, -32 • P 
LOT 4-0 j 0; DRRU 32,32; RETURN 
5005 PLOT 24,175: DRRU 0,-175; D 
RRU , 32 .- DRAU 45,0. DRAU 0,111 

ARAU -+S , ; RETURN 



S310>PLOT 183,143; DRAU 32,32,: P 
LOT 153,32 : DRAU 32, -32: RETURN 
5015 PLOT 231,175: DRAU 0,-175: 
E>RAU 0,32: DRRU -4-S,0: DRRU 0,11 
1: DRRU 48,0: RETURN 

5020 PLOT 73,142. DRRU 27,-27; P 
LOT 73,33: DRRU 37,27: RETURN 
S32S RL.OT 73,142; DRRU 11,-11; D 
RRU 0,-87: DRRU -11,-11: PL.OT 85 
, 50 : DRRU 15,0; ORAM . 55 : DRRU 
-15,0; RETURN 

S030 PL. OT 155,113; DRRU 27,27: P 
LOT 132.. 33; DRRU -27.27. RETURN 
5035 PL.OT 182,33: DRRU -11,11; D 
RRU 0,87. DRRU 11,11: PLOT 170,8 
0- DRRU -15,0. DRRU 0.55; DRRU 1 
5,0: RETURN 

504,© PLOT 101,114: DRRU 13,-19: 
101,61: DRRU 19,13: RETURN 
PLOT 101,114; DRRU 8,-S: DR 
-37: DRRU -8,-8: PLOT 110,9 
0; DRRU 4. -4: DRRU -4, 
DRRU -6,0; DRRU 6 
RETURN 

114. DRRU -IS, -IS 
DPAU -19,19: RETUR 



PLOT 
50 4 5 
flU 

S: DRRU 5 
4.: DRAW 0, -23 
■ <i\ t DRAU A . 4- 

154- 
61: 



s BEoT p ^I 



H 

5055 
RRU 



PLOT 15 



— o 



9: DRRU -6 
t * ; DRRU 
6 , . DRAU 
5SS0 PLOT 
RU OUER 1; 
U -111 .0. 
URN 

5065 PLOT 
RU OUER 2; 



*,;224; DRflu -8,-S £> 
DRRU 8,-S: PLOT 3 i^ 9 

^LfiBGte "4,-*7 DRAU f 
'-23: DRRU 5,0: DRRU - 
-4.4: RETURN 
73,143; DRRU Hg'S- i^r 
0,-110: DRRU O, -1: ' DRR 
DRRU OUER l.;0,110, RET 



101,115. DRRU 54.0; DR 
.0,-54; DRRU 0,-1; DRRU 
-55,0; DRRU OUER 1;0,54: RETURN 
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SO70 OVER 1; PLOT 117,77; DRRU 3 
.3: PLOT 136,96. DRAW -3.-3: PLO 

T 138,77: DRRU -3,3: PLOT 120,95 
. URfllJ -4,4. OUER 0; DRfiW 23,0: 

Pfl.RW OUER 1,0,-22: I>.R.Rt,i © , -1 .* DP 

RU -23,0: DRflU OL'ER 1,0,23; RETU 

5930 DRTR l&,4-8,96,255,255, 96,46 
,16,24-/60, 126, 219, £4, 2*, 24., 24 
S99© DRTfl B,12,6,255,255,5,12,S, 
£4,24,24,21,219, 126,60,24- 
6000 DPTfl S000, 5010,290, 5020,503 
if. ,S3i3 , S040 ,5OS0,290 

BPie DATA 50D5,S015,5060,5025,S0 
35, 5055, 5045 , 5055, 5070 
5020 a>RTR "lll"/ , ","SS0Gi3i33iS"," 

'010101" , "01000 




"011" , "ill" , "000111" , "000011' * 
12*0000111", "010000101".. "101", "11 
1", "0O0101", "010101" , "101", "1000 
10101" , "001" , "000100010" 




0010100" ,"101", "010100101" , "0101 

6050 DATA "100101" ^"003010101"," 
£10000000" , "101", "100000010 !j*.*2 
£0-00301 ",-010100000", "011", "0000 
£>1", "111", "111", "0000001 11 ","111 

","100111" ,"©00111" , "0001S0111" , 

"111" , "000000100" , "001" , "001" , "1 
00001" , "010011" , "001" , "000010011 

" , "010001" 

5060 DflTfl "01011000©" . "100000010 

" ,"110000000" , "011" , '000000101" , 

"111", "000101" , "000111" , "101" , " 1 

10101", "0000O0111", "101" , "011" , " 
000000110", "111" , "000101" , "001" , 

"110000000" , "100000101" , "111" , "0 

11" , "000001" . "100011" , "001" , "000 
100011" 
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6070 r>RTR "100011" , "010000001" . " 
&11" , "101" , "101" , "001" , "111" . "01 
1" , "010101" . "011" ," 101" t "101", "1 
01" , "000000110" ,"011", "000110000 
" , "000011" , "110000000" , "000000H 
1'* i "1000H" ., "0000000H" "0000001 
10 ,"110003000" , "000110H1", "000 
110000" 

&0S0 DflTH »' 110111" , "1100H" , "000 

011" , "011" , "011", "011" "0000H" , 

"101", "101", "111", "101" , "011" ."0 

00100000" , "011" , "101" , "100000100 

, 101" t "011" , "000010001" "0H" 

101", "010001", "000111" , "1101000 

11" , "111" 

t>090 DflTfi "000110100" . "000000H0 
" , "000000100" „, "0000100H" , '* 10000 
3000" , "010011" , "000100000" t "0100 
00010" , "100000101" . "000010000" , " 

101" , "000101" , "0000000 10" , "111" , 
"00,1" . "001" , "011" , " 101" , " 101" , "0 
10000000" , "000001" j "0000100Q0" >« 
v»-il--' . "flai" ., "000(311" 

S100 DRTR "003000004002" , "000000 
000001 " , "000©05©00©0e" , "0250000^ 
0026" , "0000070000SS" , "000094D0S0 
8^ , "000010009011" j. "000006000005 

, "000052000053" , "000012000013" 
"000003000007" , "000000014-015" 
6110 DflTfl "009011000010" , "0130S0 

gi7Sic" . "SEse-ijeasais" . ■■siseeas 1 ? 
3014" , "O20000000021" , "0000000000 
19" , "000017015018", "0230000000a£ 
* "01t.0i3000017" , "000000021020" , 
_0S0000000024" . "000000022023" 
&lfi0 [>RTR "02S000000027" , "002003 
000004", "000000025025" . "00003002 
y031" , "00005^000060" , "0000000320 
33" , "000000027028 " , "035000000034 
' , "029031000030" . "033000000032" * 
'_;000036000037" . ,, 03900003S040" 
to!30 DRTR "000000034035" , "042000 
043041" , "000053000052" , "00003700 
0036" , "040039000038" , "0000450440 
46", "054000000055" , "071000072070 
" , "000047000048" , "000043041042" 
"049000000050" , "044046000045" 
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614© D-RTft ,! &©©eDSBD0051" , "S00©4.S 
000047" , "eS000OE50B49" .. "000133804 
0039" , "0Ili?e001000S" . "0000000570 
56" . : 'i34ia42000043" , "000000055054 
" j "000000000058" i "055000000057"* , 
"<*5^05 1054062" j "031000030029" 
61SS OflTft "00S000067066" .. "000060 
300059" . "000000000069" .. "0©0000©0 
3065" , "062063061064-" , "0640b£063e 
61" , "000000000068" , "066000000067 
" , "061064062063" , "04-600004-504-4-" , 
"0000 73000074." . "101300000102" 
5150 DflTfi "000076075077" * "000072 
070071" , "121000122120" - "07607300 
0030" ."000074000073" . "00S0S708S0 
36" , "031000000032" i "075077000076 
" f "035034003083" , "0000S007B079" f 
"000000032031" . "000033000037" 

&1TCI DQTR "066000067088" ,"073000 

aS0078" .. '0ti0eiS0000069" ., "034-00003 
3035" , "0SSSSt-000S87" ■ "0000320000 
91" , "000089000090" , "09500009*093 
" , "000091000092" ,, "0B0S00000096" . 
"000000000 100" , "093095000094- " 
51S0 DfiTR "000063035034- ", "000000 
S0009S" . "000097000093" . "000094.09 
3035" . '000133105104" , "0700710000 
72" , "14-614-4 1*7145" ., "000000102101 
" t "003107000106" j "104000103105" , 

"000iS90e8ias " . '*00ei36a03i07" 

bl90 DfiTfl "110000000111" , "114112 
115113", "000106000109" . " 15300000 
0152" , "000000111110" , "0001500002 
51" , "116000117118" r "00017100017S 
J j, "000000000119" , " 113114112115" , 
" 113116000117" j. "077000076075" 

&200>D-FiT£» "000000126127" ., " 000124 
083123" , "120121000122"/ "00000000 
i7! OR" , "000123000124" j "1301260001 
■^Q" . "000122120121" j "030000135134 
" , "127000000126" , "131000000132" , 
•"'000000000133" f " 12SS00123130" 
K2J0 DATA "000000132131" / "000123 
130126" t "000030136137" , " 13900000 
0133" i "134000000135" f "1370000001 
33 ; ' , "00014100014S" . "000000133139 
" , =■000143000142"' f ■'C00140000141" , 
"244147145145" , "000173000174" 
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3220 DflTfl " 105104000103" j "000142 
300143" , "000149000143" , "14514614 
4247" j "00©151000150 [= , "3001480001 
49" , "112115113114" , "115213124112 
" , "000154000155" , "000000256157" , 
"000000252153" j "000000153158" 
6230 E-fVTJR "000155000254" . "157000 
000266 " , "160000000162" > '" 1630001b 
4162" , "158000000159" . "0000001611 
50" , "000130000161" { "000000165165 
" ■ ** 163000000167" , " 162163000164" > 
"256000000165" „ "000000169170" 
5240 DFlTfl "000172000172" * "000000 
167163" t "170000000163" . "00011711 
3126" , "000175000176" . "1471451462 
44" j "17S000 2 73177" f "000174000 273 
" , "000276000275" , "000232000233" , 
"000232000260" , "277273300273" 
5250 DfiTfi "£032542622 53" "00^t34 
000235" , "0G017917717S"7"iS62S70e 
02SS" j "0002 63000 232" , "2900000001 
S3" , "00013400013S" , "0001S50001S4 
" i "137000136186" , "000000131192" , 
"000000000133" . "000SS0I89190" 
5260 DRTR "192000000191" j "196000 
030137" t "000166156137" - "0001^500 
0293" , "000195000194" , "0000001971 
96" t "000000000200" , " 000 19S00 199 



Thrce-D Maze II 



Once you've mastered Scott Vincent's 
program, you can progress on to this one. 
In this 3-D maze program, written by 
Graham Charlton, you once again see the 
maze in three dimensi ons . However, un Like 
Scott's program, this one generates a new 
maze each time you run the game. 

The maze is bui U on a 22 X 32 grid, and 
the computer takes about a minute to 
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create a fuLL maze. Here are some shots 
of it in action: 



JT 
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Your object is to move from the top Left 
hand corner of the screen to the bottom 
right hand Dne. You press the "R" to turn 
right, "L" to go Left, and "F" to go 
forward. Pressing "H" [for 'heLp'J wi L L 
show you the maze from above, and wi L L 
show you where you are on it. You start 
facing south. 

uunnunununnuuuunttunn^ ??######### 
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DIM 
DIM 
LET 
LET 
LET 
FOR 
LET 



CS i ^; 3 .. 3 J J 
3 $ f 1 £»00> 

X=21 
y=31 



c*uo=" nttuznnnnnunnnun 
nnttunnnnnnnannn - 

90 NEXT w 
i3S LET CtUiSf) =" " . 

110 IF c$i' x +2 t y .i = ■ ff " OR c $ t x -2 .- 
-i ="»'■ or c $ tx , y +2> ="«■" OR c$tx # . 
-2 1 ='■«" THEN GO TO 10&SS 

LET Z=Z-1 __ _„, 

IF z =0 THEN GO > u SQ®® 

LET X=CODE 3$ l'Z.> 

LET y=CODE b*(z,i 

GO TO 100 

LET a$(z) =CHR$ & 

LET b* iz? =CHR* y 

LET Z=Z+1 

LET r=INT fRN£>*4-.> 

LET c = C r =0? - (r=U 

LET d = tr«Sl - tr=3> 

IF c$ tx +2*c , y *£*^J =" 

GO TO 1030 

-.Tito LET ciix + c,y+d.i= , M 

LET c* (x +2*c , y +2ftd I = 

LET X=X+2*C 

LET y=y+c' *d 

GO TO 100 

LET X=3 

LET y=3 

LET r=l 

PRINT RT ,. O; 

FOR W=2 TO 22 

PRINT C $ i'w y 2 rp J 

NEXT W 

PR INT Fi-flS-H 1 ; #T X -2 , V -v 
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ISO 
ISO 

tZ>10 

020 
030 

04-0 
050 
OS0 



THEN 



.090 

. 100 
L110 

3 @ 

5010 

2O20 
5 j. lJ g 

5110 
3130 
:- ^ 3 Q 



3150 IF INK EV $ - ' 
1-300 CL5 



".HEN i^O TO 



!1* 



=5 10 


LET 


K =1£7 


:->5:-'0 


LET 


1 =37 


3O00 


LET 


p= Vf =!.» - f / *3J 


3010 


LET 


Qc(f =2 I — ( Y =-?-- 1 


3100 


LET 


i«0 
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3110 IF C$ (X + J*P +p / y + _ji M $*^> ='U" 
THEN PLOT 123 - ft, 33+ t; fl-Rfttt 2 ft ft , £? 
PL DT 123 -X , 33 - I / r>R>3(.f J?-*A = *?-■ iff 
6 TO 3200 
3120 LET J=J+1 i ..j. • 

3130 ip c$ tx + J *p -q ^ y +J*^*p.* = » 

TH£NJ PLHT 12S-K/38+L: DftSi.i ft..*4-,- 

I ,--A- DRflUf , - l *3.-'2: IVftSU -Si .<***-* 

4-: GO TO 3150 „ ,, . 

3140 PLOT 12S-X,S3+ULV*: DPJPU A 

DRRU , -U3/2: DRAW - ft ..' 4- , 

if c$ <x+j*p+q,y + J*q-p> ='*»" 

PLOT 123 +K , 33 + I : DRAW - ft .<'* > 
DflflU 0,-1*3 ,/2 : DRfiU ft -•' 4- , - -l 
GO TO 3170 
31S0 PLOT 123 + ft , 33+t ft 3. .'4.; DBS*.* - 



■• 4 , 
3150 

THEN 
S4. 



** L 



k .--4- | : DRAW , - L *'3/£ 
3170 LET K=ftft3/4- 
3130 LET 1=1*3.-' + 



&R&U* ft ..'4- ,0 



j190 GO 
3 £38 IF 
FN PLOT 
L ; PLOT 
3210 IF 
3220 
3230 
32+0 IF 
■■ THEN 
3250 IF 
3250 
3270 
3230 
3290 
330© 



TO 3110 

X + J *P ~B 1 BND 9 ♦ J ft q = 3 1 Tff 
128-h^Sfl: ORAM 2ftft,-2* 
12S-K,83-t, DRRU 2*fc,2fti. 
.x =21 miS> y=31 THFN STOP- 
LET z*slNKEY$ 
IF 2*="" THEN GO TO 3220 

z$="f" rno c$ tx +p , y+q> = " 

LET x =X +p ; LET y=y+^ 
z$="r" THEN LET r=r-i 
Z*=*'l" THEN LET r ~r ^1 
f =5 THEN LET r =1 
r =© THEN LET F =4 
Z*="h" THEN GO TO 2100 
TO 2500 



IF 
IF 
IF 

IF 
GO 
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TWO PLAYER 
GAMES 
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Squares 



This program, from Nei L Pe L Linacci , 
includes versions for either one or two 
players. In both versions, the game is 
played on a ten by ten board. 

You have to place counters on the board, 
following the rule that you cannot pLece a 
placing a piece on, or adjacent to, one of 

the computer's pieces. 

The one-pLayer game is called 'Area' and 
you play against the computer. The first 
player who cannot legally place a piece on 
the board is the loser. In this game, your 
move will be rejected if it involves 
placing a piece on or adjacent to one of 
the computer's moves. 

The computer moves randomly unless it has 
problems finding a move, in which case it 
will search methodically. If it still 
cannot move, it will admit defeat. 

The two-player game is called 'Lines' and 
the winner is the first person to get five 
squares of their color in a row, 
horizontally or verticaLLy. A move is 
rejected if the square is aLready filled. 
However, if you move adjacent to (above, 
below, or to the sidB of] one of your 
opponent's squares, the piece becomes one 
of the opponent's. There are a number of 
winning techniques which can be used (as 
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there are in the one-pLayer game). One 
slight mistake can cost you the game. 

It is essential that CAPS LOCK is switched 
ON during thi s game. When the program 
starts, you will see the titLe page, and 
four options A to D. If you cannot seLect 
an option, check CAPS LOCK before you 
check your program. 

The first two options, one and two player 
games, are fairly obvious. The third 
option, to change coLors, allows you to 
redefine both players' colors, by pressing 
the appropriate key, 1 to 7, when the 
prompt appears. The two colors cannot be 
the same. 

Asking for information wilL give you a 
brief rundown on the aims of the game. 

When you play e game, you'll be presented 

wi th: 

PLAYER ONE NAME CENTER' TO SKIP] 

Type your name, or if the player's name is 
the same as before, simply press ENTER. 
The same goes for player two, when 
necessary. 

The display shows the board when the game 
is in progress, together with a score 
display, which shows which player is which 
color and how many squares of that color 
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there are on the boerd. A prompt appears 
at the bottom right of the screen, 
indicating whose move it is. Be Low this 
is the Last move entered, displayed in 
white. 

Enter your move as a number and a letter, 
eg 7A, 1D in that order. Entering AA will 
terminate the game, and return you to the 
options page. 

The program is written entirely in BASIC 
and is made up from several modules which 
are Linked together by the main routine, 
lines 540 to 740. 

500 REM LINES 

510 REM ***** 

53© GO SUB 9000; GO SUB S000 

54-0 GO SUB 9500: BOS0ER S. ?™pE 

C? A -""*;" S x Kit* *f 

50© EO SUE~-3£©0. PSPE.R 0. INK 7 
700 GO SUS S00O. GO SUB 3000 : & 

EM PLRVER ONE 
"7©S ir UF :_:<-; Pr TH£:N Gu ! O 5000 
— s?!-? s^£i SUB SO00 

710 IP Np=l THEN GO SUB 3000 
720 IF MP =2 THEN GO SUB 4 000 
725 IF UF OR BF TH£'M S0 3~0 S000 
f 4*© i^L? PL? ^* ^ 

1000 STOP 

£000 REM PLSVER ONE 

2010 S^£E:P ..3,-10: PPINT XN*< S;.P7 
IS = 22 •:- "'PLhy £w ONE " ; fil ± / , 22; P $ 

2020 PRINT ST IS ,-22; INK S; TO H 

QUE : "* ; 

20S0 GO SUB 2S £ *0 -^IfT &~ 13-20 

; &$ 

2031 IF ftp THEN LET PF = 1: RETURN 

2032 IF BfX.-Y.* <>0 THEN GO TO 203 


203* IF NP=1 r.HEN SO TO £lSi5 
^■^:^E> _ LET LL = <Y -i£ > #2 + 1 : Liz T C-L- = f X 

—S3 *c + 1 
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•vsas !_ET P 15 ^PIStI. LSI B \ X j V # = ! 

PRINT RT LL.CC; GUER i; P£|P£R 
Ci;" " ; RT LL-i-1 ( CGr* 

£050 IF B f X , V "-*• I } =2 OR 5 \ .V. „- V —l « = t 
OR B < X + 1 , ¥ I =2 OR BiX-i, V " =2 TH*z 
M LET SiX/Y)=2: PRINT RT UL^CC*. 
OUER 1; PRPcR C£; " ";flT LL + i^C-U 
;" =: LET P2S=PSS + 1: LET Pii-=P'i 



2^55 T"= NP=I THEM LET UP -£ - RETU 
RN 

2361? LET WF-^. 






cl n.' ^ «.' ni^ ) v_*J-t s*t 



2iSO IF BiXV+IJ=2 OR B-fX*Y—aJ *=* 

OR BiX + l/YJ=2 OR BfX-l f V.<=2 ? HI 



lf= i-£N «S 



M GO TO 2B38 
2il@ GO TO 2B35 
£529 REM MOi-'f 
25SS INPUT LINE R$ 

THEN GO TO 2S00 
££.©S IF R$=-" ; RP" THEN LET RF =2. : H 
FTNRM 

SolO IF CODE fiSi'i' -iS OR CS3S££ ^5 
:"3J J57 THEN GO TO HP00 

2520 IF CODE R*t£J :ES OR CODE !H$ 
i2> >74- THEN GO TO 2e03 

2630 LET X=CODE S$il)-46 

254-0 LET V"=CODE R* *"2J -©3 

2S50 PETL'RN 

3000 PE*^ 5PEC-TRUJ1 

3O10 PRINT RT 16,22; INK &; '^PLflY 

ERTUO" ; RT 17 , h2; £-;$; hT £*a r sMi ' Tw 

MuUt : " 
303.5 FOR R = I TO 15 «*. „ 

3020 LET '~" = IMT ? "*--$£>* 10. 1 -"-2: LET T 
= INT t"RN0*10> +2 _ M „_ 

3030 IF B(X,V><>0 THEN GO TO 302 



304-S IF BiX + 1^ V y = 1 OR £? i X -1 , Y > = 1 
OR l .v. , V + 1 .* =1 OR SiX, Y - 1 .* =1 THE 
N NEXT R: GO SUB 3500: IF t,*r THE 
N RETURN . „- „_ 

304-5 LET LL=0'"-2>*2 + I. LET CC=lX 
_2\ *2 A I PRINT RT LLyGC; GUER i; 

PflPER C2; " "}&T LL + I.CC; 1 ' '* 
305© LET BiX/Yi =2: LET PS-r.^PSS + l 

RETURN 
3500 REN SERRCH 



3510 FOR X=2 TO 11: FOR V =2 TO 1 
X: IF SiX,Y) {>S THEN GO TO 35*0 

OR r-{>.,v+l.' =2 OR £> I-* /Y-J-' =1 THE 
N GO TO 354-0 
3530 RETURN 

354-0 NEXT Y*. NEXT X; LET WF=i: R 
ETURN 

3S95 RETURN 
4-00O R£fi PLRVER TWO 
4-010 SEEP -3,-10: PRINT INK 5;RT 

15 ,22, "PLRVER TUO" ; AT I7,22;OS 
4-020 PRINT RT 16.-22; li-iK 5; 'TO H 



: £416 

4-031 IF RF THEN LET RF =2 . RETURN 

4-032 IF BiXjYJ <S0 THEN GO TO -3-03 

4035 LET LL = Vf -2 J *2 + 1 ; LET OC = ? X 

•3-04-0 LET P£5=PiS+l. LET SiX.-V-' =£ 
: PRINT RT LL.CC; OVER 1; P.HPtR 
C2 : " •*; qt L.L-J-1 ,vC; ** 
4-&b& IF ' S i f X i Y -M > =1 ' OR B ! : X ^ Y -1 1 =1 

OS E,'X + 1, Y ) = 1 OR SiX-1, ¥3 =1 THlz 
N LET EiX,Y)=i. PRINT RT LL,CG; 
OUER li PRPES OX}"' ";-PT LL-K$ f CO 
- " **■; LET C13-P1S^1. LE^" P2S=Ps£ 
5—1 

4-055 BEEP ,2,20 

4-SSO LET UP=^. GO SUB 7500 
4-370 RETURN 
5000 REN GRHE OUER 
5310 BRIGHT I. PRPER 1. FOR R=l^ 

TO Si: PRINT RT R,2£>" 

" : NEXT R 
5020 DRIMT RT 13^23;- "GRHE OUER" 
5030 IF OF THEN PRINT RT 15,24; " 
3T O P P EO " ; RT 16,2*3;" BY PLRVER " ; RT 

17 27 * RF 
504-0 IF UF THEN PRINT RT 15,-23;" 
PLRVER " ; UF ; RT 16 , 25; "wIHS" 
5S50 PRINT fiT 28,23; INK 5; "PRE5 
S RNY " , RT 2 1 , 25 ; "KEY " 
SO50 BRIGHT O- PRPER 0. GO 5U« *-=■ 
000: FOR K = -20 TO 4-0 STEP 2: BEE 
P = 05 , K . BEEP - 01 ^ 30-K : HEXT K 
:->078 PHU3E 0: GO TO *^4-0 
5030 REN PRINT 5CORJz*3 



231 



■50113 PS INT AT 2 ; 22; ZHK ?; 'PLflVE 
R DNE' ,flT 3,2SiP*;«fT 4-,-23; INK 7 
; PAPER CI;"Q"; PAPER 3; IHS 5; " 

"iPiS; " 
b@20 PPINT RT S-22- X***K 3*; '*S*OiY£ 
R TWO ! ';fiT I8,22;8S; r?T 3. 3. .- 23 ; INK 
7; PfiPER C2;"fj'*; PfiPtR 0; INK 5 

; " M - P^"3 ~ ** " 

6330' RETURN 

? 000 j-i ET URN 

75O0 RD1 CHECK FOR WIN 

7510 FOR X=2 TO 21; FOR Y=2 JO 1 

x 

7520 XF BiX,Y.! f>0 THEM L£T A=£ *X 

iYJ ; GO SUB 7-300: IF WF=I T>*Ef?-i R 

ETURN 

730O LET XI=X_ LET ¥1=V 

7510 FOR Z = I TO 4-; LET X1=XI*I; 

JF S{Xi,Yl><>3 THEH SO TO 7330 

7620 NEXT Z: LET WF=A. RETURN 

7830 LET Xi=X: LET VI =Y 

734-0 F*3R Z = I TO 4-. LET Vl^VIil. 

U= SfXi/Yl) <>R THEM GO TO 7350 

7350 H£:<T Z: LET UF=A. RETURN 

,'3S0 RETURN 

739a Kiz'i URN 

8020 RE" 0^P1-L : LES 

5010 DIH P4C10J: DIM 3*t"±i0>: LET 

CI =4-: LET C2=5 
8020 DIM Bil2,12> 
3S30 POKE 23609,18^ 
3500 RETURN 

s ^ ^ r fcjj ^y^c* 

2?t>i« DUHi^tK i. ."SPLS I. INK &.« C 

L3 

362© PRINT AT 1 * 13; "PPEA" ; fiT 2,1 

S&38 PRINT - 'TAB S; "A ONc-PLflVcR 
GAME'"''" YOU MUST BEAT THS CO*i 

PLATER- YO'J" "' "PLACE SOUARES OH T 

HE 3DARL- SO '"-'-'■'THAT HONE ARE 

ADUACE^fT TO THOSE " ' * "U-F T*s£ COM 

PUTER - " 

•^54-S PiRINT • " = HE COMPUTES? UILL 

■-■LAY LIKEWISE*" - "AND WILL TELL Y 

L=U WHO HAS WDM. " 

S650 PRINT ■ INK 7}" F93S55 AN 

Y KEY TO CONTINUE 

S653 PAUSE © : BORDER 6 - PfiPER S . 
CLij . INK © 
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36 70 PR I NT AT 1,1£;'L JLHtE^ ; RT 2 ,- 

12; M " 

S&30 PRINT " TAE* 7; "A TWO -PLAYER 

GAME" J ' -" " VOL* MUST SEAT V OUR &P 
SONEHT SV" " ;; S£TTIHS FIUE 5©£.*RJRe 
S IN A ROW" " BEFORE HE C<0^^~'' 
3650 PRINT" " THE LINES CAN EE tt 
ORIZONTAL OR" " "VERTICAL .- " _ _ _ _,_ . 
3700 PRINT " * INK 2; " Pfi&S© AN 
Y KEY TO CONTINUE' 
3^1© PAUSE 0: SOR&ER 4-: PRPtR *: 

CLS : INK 
37 IS PRINT • * TAE? 7; :: ^3URS£3 iO:- 
tinued";TRS 7; " 



372S PRINT 
OR RE ON THE 



' J.f= YOU PLACE A 5^ 
' * "BOARD RDUACENT T 
S3 ONE GF vsi!js- ■ ' "OPPONENT '"S , IT 
UILL IMMEDIATELY" " ' "BECOME: ONE O 
F HIS," _ 

B730 PJ?IHT * " " " XNK 7; " s 3 ReS'S H 
NY "KEY TO SELECT GAME" 
874-0 PAUSE 0: GO TO 3584? 
•5S00 REM UDS ■" S 

2010 FOR H=© TO S: POKE USA _"_A -*■ 
A^I; POKE U5R "3^^7-A^I- -ii:X; H 
302© POKE USR "R"+7,255; POKE Ui> 
R "S" ,255 

3030 FOR A=0 TO 5: POKE UPR "CJ*' + 
A, 123. POKE OL-R "&' 't7-S.12-3- ?^EX 

9I&4« POKE USA "07,25*3; POKE US 
R **D*' r 255 

9050 POKE USR "E",2S5. FOR R-l T 

O S: POKE USR "E ;: +R J i23. ttEXT A; 

POKE USR "E"*7 r 25S 
50B0 RE i URN 

5200 R^ii DRAW COARD 

■5210 Pf^P^P: 0. CLS - . jyfi ? 

Z 5 il? - I?:f T 1 1 T fT'i 7 U ; a 

? n "T _i- .■ — , 1 t s t - - . i_ = = ■ 1 

NEXT A 

3230 PAPER 7: INK 2. FOR «=* TO 

3: PRINT AT © f A*2*I } A; "' ";R; 21 , 

A*2-»-l ; A; " " : rnEXT A 

324-0 FOR A = l TO 10. LET AI=A*2 

3250 PRINT AT fii,S:CHR$ iH*b4>;R 

T AI fSXl CHRS iH4£i- ; A- Sl?i :&i 
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926S PhINT R-T 0:0,= =1 ;rtF i y ; " " 

.-: AT 1.-21, ,: * - ;RT U,2i;" " 

■3 3 OS RETURN 

ySSS REM OPTIONS 

9585 LET PtF =& : LET UFs&: LET PIS 

=0: LET P25=tv D-IH 3*12,12) 

■551© BORDER 2 : PfiPER 2. ZhlK T : C 



3520 F'R XNT ST liS; " S * * SSUffRES * # * 
"jflT 3' < *i , *yRITTEN =?-V H£IL PEU-IN 
fiCCI 3LS83" 

'TSS I2;"GPTIvM5" 
TAB 3; " fAJ ONE PLflT 



|©3 TUD PL AYE 
TP.3 3; " £33 C#$Bf£§»£ C€3 

CHOC'jE YDUFt OR 
PRESSING TH£ AP 

THEN LET NP =1 

ihen let np^s 
then go to 33 



S530 PRINT 
QS4-0 PRINT 
ER GAME" 
3550 PRINT 
R GRME" 
5558 PRINT 
LOURS' : 
5555 PRINT 

Q570 PRINT ' ' "" 

TION NOU SV " 
PROPRIRTE KEY" 

■3533 IF IMSEVS-''H : 

GO TO 3700 

3550 IF XNK£Y5="S* 

GO TO 9808 

3595 IP INKEV$="D' 

3538 IF INKEYS-; ? "C" THEN SO TO = 

53Q 

•35 2.0 BORDER 7. PAPER 7 CL5 IN 

*.. J j •IISS* " " "Player o^e colour 

: PRESS THE Kf*V FOR Tfi£ COLO 

UP YOU UiftNT NO*,*" 

3620 LET A=CO&E XNK£Y$ 

5&30 XF R<4-9 OR fljgs TKEH SO TO 

9§20 

9P*0 LET Cl=A-4-S; BEEP ^5 -CI 

fl 59*?» p 5S!I " " PL - - " 5 " £R Tya 'colour 

PRESS THE KEY FOR THE COLO 
lift YOU ^RNT MOW 

=«3t>a LET R=CO0E INKEV'S: XF A<4-S 
OR R>55 THEN GO TO <9630 
5670 LET C2=A-4-3; XF C2=C1 THS 
GO TO 95SS 
yGS8 SEEP - 5 , C2 : GO TO 3500 
9700 INPUT "TYPE YOUR NftHE £ * ENT 
ER' TO SKIP3 '* 2 LINE R$ 
3710 XF R*="" THEN GO TO 9708 
LET P$=A* 



"HEN 



37 
57 



£34 



■57-10 (FT Qi="5PECTRUH" ; &^E5&%L~, 
1*00 lIpUT "PLAYER ONE ^H£ ££N1 
ER TO '5XXF2 " ; LiNE A* ^ 

'^e-10 XF R$="l: THS* l=G H3 =P»^ 

%%%% i XNPU?*"pJpYER TUO mm tF» 

ER TO SKXF3 ": LINE R$ 

9B*S XF A$="" THLM S3 PG —3-0 

9350 LET ©$=A$ 

3350 RETURN 



Use r Defined graphics 



~L • • ' c 
Q* = .E 



~1» « * 3 

r « # * e 



Four in a Row 



From the fertile mind of David Perry comes 
this version of FOUR IN A ROW. The program 
contains f u L L instructions and has a hires 
Load. 

This is the program in action: 



i a 3 4^ 5 6 



-fc 



• mm m m 



*l*S(f!»wi 



#l#|^|«t#!e!#i 



ri-rss^r! i. 



And here's the Listing for it; 



RE RE* a: POKE 



U'S« " a ** -s-n « a 

E-IM rfT^ - ^ 

10 BORDER 0: PRPER 0. INK 7 : B 
RIC-HT 1; Ct-S 

se print rt 3^7;"i 2 3 4- s & 7 

- 1 

4_S_ FOR fi =S2 TO 3.-3S STEP IS 

&s3 Pt. or ~t . 4 
60 next n 
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^0 f-'OR :=4-4- TO ^-4-S STEP i& 

100 PLOT 52 , r; : DRflw 118 ,0 

110 NEXT n 

120 FOR ri=3-3- TO 4-4-; FkOT 25 . n : 
DRRU 166,0. NEXT fi 

130 LET pUy=l 

14-0 BRIGHT 

£00 LET pl3U=i: PRINT HT 18>S.; 
IMK 7; PfiPER 2." FL.9S.H 1:" PLPYER 

I ": PRXUT AT 19,3;^$;" 



21i 



IMr'J 



HC 



Ufi'fEK ^ 



n\C> 



220 IF IftO>7 OR »0<1 THEN GO TO 
210 

230 GO SUe 1000 

250 LET Ptsy=2; PRINT ST 18,8; 
INK 7; PhPER £; FLfiSH 1; " PLAYER 

2 " : PRINT RT 1S,3;B5;" 

260 INPUT "tfGUE PLPYER 2 *? "iBO 

£70 IF tSQ>7 OR BC<a THEN GO TO 
£60 

260 GO SUB 1000 

£90 GO TO £00 

1000 GO TO 10f0 

1060 FOR n=S TO ! sTtP -1: IE f I 

n y ntor> = i then next rs . return 
1070- let r*n,&o>=i 



1030 IF pL3y=! THEN PRINT Rt 
* (mo *2) +5; INK 2; BRIGHT 



n s-2) 

ft" 

1061 IP ptau-s 



3+( 

1; " 



s££f-f PRXfTT ST 3-f ( 



5; ink' 6;- BRISHT 



1030 RETURM 

6000 BORDER 1: Ci_S ; PLO ! S,l3: D 
RSU 0^175". DRPU* 255,0: 0R«U 0,-1 
75: DHflU -2to5 , 

5010 PRINT R.T 2,3; BRIGHT 1;"F U 
U R I N R R O » ^ I ■ " 

5030 print HT +,l;"ln the gartie o 
f ": FLR8H ±i F-Pi&^s* 2; INK 7; "FQ 

UP IN fi KQ&i • 

504-0 print trb £;"you must try t 
o defeat your "; PRINT TAB l;"op 
ponent by connecting four of": P 
rint TftB 1; "molt counters in a r 
cw eilher": PRINT TP8 1; "UERTICR 
LLY, HORIZONTALLY Of": PRINT TRB 
1 : "DIfiGONflLLY . ~ * eg . " 
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5050 PLOT 0,©. DRRU* 0,175 
Sv?S0 PRZ^T ST ia.i.-'i^ilt". PSINT 
RT iC, 11; "#';RT 11, 11; J '#";RT IS 
,11; "#"; RT 13 II; '© 
5078 PRINT »T IS . 15: ,: #' ! ; RT 11,16 

; t";aT 1E,17, "fr;3T 13,13;"#" 
5i360 PRINT RT 10, £6 ;'*#": RT 11,25 
; ■#= ; RT IS -, 24-; "*0*' ; RT 13,23; "*" 

5090 INPUT "Player 1 " s nase ?"; h 
$: XF LEN R*>10 THEN GO TO 5090 

5091 PRINT AT 15,1; INK 7; PRPER 
2; FLASH l; "PLflVER l.-";B* 

51S0 INPUT "pi.ayer &"& name ■?"; fc 

$: IF LEN B$>ld THEf-S GO TO 5100 
51©1 PRINT RT 16,1; INK 7; PRPER 

2; FLR5M I,' ; PLflVEH 2:";b$ 
5110 PRINT fiT IS . I ; "PLmV'ER 1='"; 
INK 2; "#' 

5120 PRINT RT 19,1 ; 'PLSVER 2 = ".; 
INK 5; ■*#" 
5130 PRINT RT 20,1; FL.R5H 1; INK 

2; '" P RETS 3 ENTER TO COMMENCE! ! ! 
": PAUSE 0: RETURN 
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Tanx 



This is a two-person game, in which you 
have to try and shoot the turrent of your 
opponent's tank. 

Here are the controls for pLByer one: 

Left - Z 

Right - X 

Up - 2nd row/ Left 

Down - 3rd row/Left 

Fire - Top row/Left 

And these are the ones which p Layer two 
should use; 

Left - M 

Right - Symbol Shift 
Up - 2nd row/right 
Down -3rd row/right 
Fire - Top row/right 

You'll notice that the tanks disappear 
for a moment when a shell is fired, but 
they can still be hit, and can stiLl move 
out of the way. You must not run over any 
of the mines dropped by the she Lis. You 
have three Lives each and the first tD die 
is, naturally enough, the Loser. TANX was 
written by Nea L Cava Lier-Smi th. 

10 REM TRNX 

15 rem Nesi cava li er-smi th 

20 LET Xl=INT |RND*20) : i_ET yl 
= 5: LET X2 = INT iRND*20.) ; LET y2 = 
25 
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30 LET ylb=:l. LET X"lb = 0: LET y 

2 b = — 2. . LET X2b=0 

40 LET CC-ei LET Ci = B; LET Li f 
£2=3. LET i:f£l=3 

50 GO 5UB liDES 

60 GO SUB 10© 

70 GO T O Sg 

2 S R E M \3^s&M3mS5 

igi PR Xi-;T RT X 1 "•'• 1 '. " 

2 02 If xlb=0 THEN PRINT AT Xl»y 

2 03 IF wlb=0 THEN PRINT RT X 2 +X 

ib.yi; " '■ 

1 10 IF IN &S022<H5S RND XH20 T 
HEN LET X 1 =X 2 + 2 . LET X 1 b = 1 : LET 

"aai3 IF IN 6451© <: 255 HND Xl>0 TH 
EN LET Xl=Xl-l. LET Xlb=-i; LET 

2 30 IF IN 55278=253 HMD M 2. > Th" 
EN LET M 1=^1-1: LET yib--l. LET 
X lb=0 

1*0 XF IN 55273=251 HND y 1 <3Q T 
HEN LET y 1 =y 1 +1 : LET y 1 b = 1 ; LET 

250 PRINT HT x£,y2;" V 

152 IF X2b=0 THEN PRINT RT X2..y 

2 +M2b; " " '-. 

153 IF y2b=0 THEN PRINT RT X2+X 
2b i'2; " 

1©0 XP IN 43150 <255 RND X2<2@ T 

HEN LET X£=X2+1; LET X2b=l: LET 

'• ': 2 b — 

"'i7t<'lr IN 5734£<255 RND X2>3 TH 
EN LET X 2 =X 2 - 1 : LET X 2 b = - 1 : LET 

130 IF IN 32755=251 RND y 2 > Tn 
EN LET y 2 =-4 2 - 2 : LET y 2 b = - 1 : LET 
X 2 b = 

19B IF IN 32756=253 RND y2<30 T 
HEN LET U2=y2Ti; LET M2b=i: LET 
X 2 b ~ 

200 REM i=g=JfcrR=a»gaMg 

201 XF IN SI43S<255 THEN LET CC 

202 XF ;c:-3 THEN GD SU£ 300 

210 IF SCREENS CX2+X2b /J2^g2b) = 
" . " THEN GO TO 2OB0 : PRINT RT Xl 
, y l; CHR? 14-4 

211 PRINT RT Xl,yl;CKR$ 144 

212 IF IN 63456 <255 THEN LET C 1 
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213 IP C1>0 THEN GO SUS 400 

2. 1-4- XF SCREEN $ i X 1 +X 2 b . U 1 +41 b;» <s 

'* . " THEN GO TO 2200. PRINT RT X£ 

. y2; C.HRj 144 
220 IF X I b =9 J~HEN PRINT RT Xl . y 

2 -!- : j 2b ; L'lih? 1 ! B 
230 IF ylb=0 THEN PRINT RT Xl+X 

lb,-Jl;CriRS 14S 
2 3 S IF SCREEN $ £ X 2 + X 2 b , y 1 +■ y 1 b 1 - 
, ■ THEN GO T& 2200: PRINT RT Xl 

, y i : CriRS 144 

2 40 PRINT RT X2,42; CHRS 144 

2 50 IF xSb = @ THEN PRINT RT X2>y 
2+y2b:CHRS 10-6 

260 XF y2b=S3 THEN PRINT RT X2+X 
2b, y2; CHRS 14= 
270 RETU RN 

3 R E M gSsslMS 

310 XF CC-3 THEN LET X2£=X2fX2b 
LET q2i=42i-y2b 

311 FOR 5=8 TO 9 

312 XF C=0 THEN GO TO 335 

323 Irj2ia THEN LET U2b = l; LE 
t X2b = INT \ RND £33 — I 

325 XF v2£ >2S THEN LET y2b=-l : 
LET X2b = INT £RN£>#SJ -1 

3 17 IP" X 2= :■ 2 S THEN L ET X 2 b = - 1 : 
LET y2b=INT tfiNDSSJ -1 

315 IF X2i>lS THEN LET X2b=-1 
LET y 2 b - INT i RHO £■ 3 J — 1 

313 IF X2£<1 "THEN' LET X2b = l: LE 
T y2b=INT (RND if 3.1 -1 

320 XF X =X 2 RND y =y 1 OR X =x 2 +X 1 

b rnd y=yi-r-yib then go sub 220s 
33B PRINT RT x , y ; " " 

335 PRINT RT X 2S .. M 2£ : " . " 

336 LET X=X2S A LET y=y25 
_^4-0 Lc f X2S -XS5 tXalb 

3S0 LET M2s=y2S+y2b 

360 NEXT C 

370 LET C t. = C C — 2 

350 RETURN 

400 REN ir*h:i i. L2 

410 IF :l=3 THEN LET Xls=xl+Xib 
: LET y is =y i+y lb 

411 FOR d=0 TO 3 

412 IF d =0 THEN GO TO 435 

415 IF yl=,<l THEN LET Ulb = l: LE 
T Xlb^INT CRND*3? -1 

41S IF yli>22 THEN LET ylb=-l; 
L^BT Xlb = INT TRNDttS) -1 
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+x 



■+17 Ir XlS MS THEN LET Xlb=-1; 
L ST yib^l NT ( R.NC +31 - X 

413 XP Xl£MS THEN LET Xlb = -1: 
LET yib^INT !RWDJ3) -1 

ilS IF XlS-M THEN LET Xlb = l; LE 
T yib=INT ;RNDs3J -1 

422 IF X = X2 RND y = : -i 2 OR X = X2+X2 

fc rn£> ; j-ya-j-yib then l-u sub 2000 
430 PRINT RT x,y;" ■■ 
435 PRINT RT Xli ,gii."." 
«t LET X =X 25- : LET y = y 15 
^^^ *__ ^^y yz 2~ s° = y "• & ■*■ v* 1 Ea 
f53 let yis=yalfyib 

-4-t-0 NlX i d 

470 LET L-2 = ca-l 

9S9 STOP 

rill ?§P s=s*to T ? 14 " 6 

-JoS READ- fe-; POKE U5R (CHRS ^ j 

1940 NEXT X 

X 5 N E.X T Z 

IBS® DRTR £3 , 126 , 25S , SS5 . 355 , 255 

i 126, 60 ,24.24 .24, 24,24, 24 , 24. 24 , 

., > 0,255 , 2S5 , S , S , E» 

SB0S RRINT'fiT >;2,y2; FLRSH 1,*"SH 

LStB" 

2003 FOR Z =5 TO 100. NEXT Z 
2305 PRINT RT X2,y2: FLRSH 0;" 

2010 LET Li f£2 = U f£2-l 

2020 XF Li * £2=0 THEN PRINT INUER 

55 1; FLRSH Ij'G R M E U E R 

Player l wins 

" : STOP 
SS36 GO TO IES 

2200 PRINT RT Xl,yij FLR5H 1; "Sg 

tstJB" 

2205 FOR X =S TO IB3; HEXT X 
2205 PRINT RT XI, y 1; FLRSH 0; *• 

2210 LET L i f 61-1 i f£ 1-1 

2220 IF LifSl=0 THEN PRINT INUER 

SE i; FLRSH l; *'G R H E G U E R 

Player 2 wins 

" . STOP 
2222 SO TD 10S 
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MACHINE CODE 
UTILITIES 




j!r.a55r 
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Memory Monitor 

This program by David Perry aLlows you to 
examine the contents of ROM and RAM. It 
has good hex/dec and dec/hex routines, and 
aLLows you to move, save and load memory. 



THIS PROGRAMME (JILL. REUEfiL THET 
COTENTS OF YOUR ROM & RAM IN 

THE FORH OP RDDR£SS , ADDRESS IN 
HEXfiDEG X HAL. , OEC I HAL. URLUS: fiT 
THAT ADDRESS , H£XflDECIHftL UHUUE 
RT THAT ADDRESS & THE CHARACTER 
CORRESPONDING TO THE UALUE AT 
THE ADDRESS. 

THE PRQSRRHHE UIL.L ALSO ALLOW 
YOU TO FREELY HOVE MEMORY AROUND 
,CONUERT HEXhDECIHAL TO DECIMAL 
AND UlSfi UERSA AND ALSO TO RUN 
A ROUTINE FROM ANY ADDRESS 



ADDR- 

1 
2 
3 

5 

£> 
-? 

3 

Q 

1© 
IX 
!&' 
13 
14- 
IS 
IS 
17 
R: N 
E: E 
5- 
M-M 



■HEX: DEC: HEXPEEK . CHR $ 
eeefii 243L 80F3 HEMT 



000^ 

0803 
0004- 
000S 
000S 
0007 

0003 
0009 
©0-0 A 

000B 
<i5t?0C 

@@0D 

S0SE 
OO OF 
0010 
0011 



17 

2S5 

ass 

195 

■"if* -^ 

4-2 
S3 

ee 

34- 

9S 
92 



195 
24-2 



0011 
00FF 
00FF 
00C3 
S0C3 

0011 

002A 
00 SO 

00SC 
002H 

00tJi~ 

005C 
8©iS 
004-3 
00C3 

00^2 



COPY 
COPY 
NOT 
THEN 

3 

\ 



\ 

C 

NOT 

PAUSE 



£U ADDRESS H: HEX -DEC 
XECUTE CODE D: DEC-HEX 
SAVE s L-LOfiD BYTES. 
QUE MEMORY C-COKTINUE 
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I 


REM 


2 


REH 


3 


REM 


* 


REM 


5 


REM 


6 


REM 


7 


REM 




28 BRIGHT .- GO SUB 723: INPUT 

START RDDRES5 ? " ; RDD 

36 GO TO 330 

4© REM HEX -DEC 

50 PRINT RT 2i,3;" 



63 PRINT RT 2S,0; 
"?0 LtT R=©; LET E=© 

ee INPUT "Hex. Characters *$ '*; 

fi$; LET O$="0" 
90 LET O=0 

100 XF LEN R*>3 THEN GO TO 220 

110 LET R5=0*iR$: GO TO 100 

120 LET U =4-036; LET R=£ 

I3@ FOR R = 2 TO 4 

14© IF FN PiR$iRN <E OR FN PtflJ 
CR3 J M5 THEN GO TO 100 

150 LET R=S*U?.FN P 5R.$ fRA .1 ; LET 
W=U/I6_ 

2&© NtXT R 

170 PRINT -"" H£XSderiBal:";fl 

$; " " 

130 PRINT " C'ECiaaL ";fl;" 



190 PRUSE 0. RETURN 

200 rem £*£€- -nnx 

213 PRINT RT 23^;" 



220 PRINT RT 20 , © . 

230 INPUT "Detiaal MUSbEf 7 " j R 

240 IF R5SS53S OR R<© THEN GO T 
O 2^0 

2S0 PRINT RT £0,6;" Deci»3L";R 
;" "i i PRINT RT 21,5;" HeSadfiCiffi 



2BO LET L£=s£&St&; L^" 



¥~=*1 



-— - T rt^ 



V — I"*aT" 



i %- -■* * ! 



i!e;0 FRlNf RHPth' ?J BRIGHT 1 ; CHR 
£ (4-S+T+7** ST>9> J ; 
290 LET Y=Y'-U*T 
£35 LET U=L!-'16 

300 IF U>=i THEN GO TO 273 
310 RETURN 
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320 REM MR IN LRVOUT 
33© PRINT RT 0,0, PRPER 5: INK 
0, " RDDR+HEX: DEC: HEXPEEt^ : CHR$ 

3*0 LET GO=RDO: LET TO=RDO+17 \ 

FOR L=GO TO TO 
350 LET DBC=PEE:^ RDD: LET C$=CH 

RS (DEC RND DEO 32 J 
350 PRINT TRB fl RND RDD<10) +U 
RND ROD < 1001 + il RND ROD < 100S > + < 

1 RND RDD -C10000) ; INK 7; PRPER 4 

; RDD; PRPER 7; " "I 
370 LET R=RDD: GO SUE 2S© 
330 PRINT " "; PRPER 5; DEC ; Pfi 

PER 7; TRB 17; . LET R=D£C: GO iUB 
250 ■ * PRINT PRFEP? 7; TRB 24, PriF'E 

R 5; C$ 

33© LET RDD^RDD + i. XF" RDD > 55535 
THEN LET RDD=0 
4-00 NEXT L 

410 PRINT RT 19,2; PRPER 2; INK 
7;" fi.HEW ADDRESS H : HEX -DEC " 
420 PRINT fiT 20,2; PRPER 2; INK 
5; " E: EXECUTE CODE D.DEC -HEX " 
4^50 FRIhT RT £1,S; INK 7:" "j 

PkPER 2; " S-SRUE y L-LORD BYTEis 
" - pp.p£pi ~? - ■* ■* 

*440 PRINT »i; " M-MOUE MEMORY 
C -CONTINUE " 

45© LET I4=INKEY$: IF 1$="" THE 
N GO TO 4-5© 



N 



4-S0 IF IS = "R' 



47© IF 
SUB 4-0 
430 



OR 
Q> 



I$="a" 
I*="H" 



TH£N RU 
THEN GO 



GO TO 4-2.0 
ZT= !$="£" OR !*="£- " THEN GO 

SUB 920 

490 IF I$ = "d" OR I$= 1 = D" THEN GO 
200 : FRU5E © : GO TO 410 
IF I$ = "e" OR I$='E'= THEN GO 



SUB 

50© 

TO 57© 

510 IF T$= : 'i_" OR I$=*T" THEN GO 

SUB 380: GO TO 41© 

520 IF I$="C" OR I*="C" THEN CL 
5 : GO TO 330 

53© IF I $="m" OR I*="H" THEN GO 

TO 6©0 

540 IF I*<>"5" OR !*<>"S" OR 1$ 
<>"L iI OR I*<>-" = 1" OR i*<>"h" OR i 
$<>"H" OR s $-:>*'**" OR i$<>"D" OR 
i*<>"e' = OR i$<>"E" OR i$ = "'c" OR 
i$<>"C" OR i<M>"JB" OR i*o"M" TH 
EN GO TO 450 
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r 



550 GO TO 4-10 

S5S REH RUN fiOUTIHt 

5 70 INPUT " EX £ C U t e Ad d r £ £ = 



330 Rflr-iCOhlZt U»R tX: PHLlijE 0: 
RUN 
5SB &EM HOUE «£HORY 

&S3 input "Hove From Rd-dress 7 
'" : HF 

613 IF HF>&3335 OR hF^ THEN CO 

TO 520 

520 INPUT "HOVC TO Add f ESS ? "j 
HT 

638 IF MT>55535 OP HT<r@ THEN GO 

TO 520 

54-0 INPUT "Number of bytes to m 
o v e *' ; N 

550 IF MT+NJ55535 THEM PRINT ft I 
; " TOO MANY 3VTE3 TRY fiGfilN " ; 

FfiUSE . GO TO &S0 

330 LET R00=HT 

573 FOR P='X TO N 

630 POKE r?T,PEEK HF 

590 LET MT=MT+I; LET HF =MF-fl: N 
EXT P 

700 cls 

7i0 go to ooe 

7X5 REM INSTRUCTION".? 

720 &EF FN Hlfl$;=(COLiE A$-0.S-7# 
f R$> "3" 1 -32* ift$> "Z"> > 

730 BORDER 7 
L5 : PRINT AT 



74-0 PRINT AT 2,6; "| MEMORY MONI 
TOR I" 
750 PRINT AT 3,5; "I © DRUID PER 



RY I 1* 

750 PRINT RT 4-,6;"l 

770 PRINT RT 5 * &J 



1933 



7Sei PRINT RT 3,0;"THIS RROGRAHM 
E UILL REUERL THE": PRINT "C-OTEH 
T5 OF YOUR ROM & RAH IN" 

790 PRINT "THE FORM OF RDDRE35 ^ 

RDORE55 IN" : PRINT "HEXADECIMAL 
, DECIMAL UflLUE AT" 

300 PRINT "THAT ADDRESS , HEXADEC 
IMRL UALUE" : PRINT "RT THRT AD OR 
ESS & THE CHARACTER"; PRINT "COR 
RESPONDING TO THE UALUE AT" 

S10 PRINT "THE ADDRESS." 
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820 PRINT "THE PROGRAMME UILL A 
LSO ALLOU". PRINT "YOU TO FREELY 

MOUE MEMORY AROUND" 

©30 PRINT ". CONVERT HEXADECIMAL 

t O DECIMAL" : PRINT "AND UISR UE 
RSR AND ALSO TO RUN'; PRINT "A R 
OUTINE FROM ANY ADDRESS" 

84-0 REM TAPE LORDING ROUTINE 

SSS INPUT "DO YOU UANT TO LOAD 
R PROGRHHME FROM TRPE ?Y OR N) 7 

" .- T$ 

S50 IF T5="Y" OR r$^"u" THEN GO 

TO 330 

370 CLS ; RETURN 

330 input "Address to toad bMte 
s to?"; t 

390 IF I .^55535 OR t «© THEN GO T 
O S80 

90S PRINT FLRSH 1; PAPER 2; INK 

7; AT 21,0;" PRESS PLAY ON TAPE- 
RECORDER: " 

S10 LOAD ""CODE t: CLS ; RETURN 



a-? zsurKsl ^ j 



320 REM SAUE MEMORY 

"j SF 

9*8 IF Sr<0 OR SF5SSS35 THEN GO 

TO 330 

950 INPUT "NUMBER OF BYTES 7 "; 
N 

S60 IF N-;i OR N>55535 THEN GO T 
O 950 

970 INPUT "5RUE NAME "3 ";S$ 

950 IF S$ = "" OR LEN S*>10 THEN 
GO TO 9 70 

990 ^Rs.'E 'jjuU&t Sf ,H 
I 000 kETURN 



MC Screensave 



This routine, from DBvid Perry, is written 
for the 4BK machine. It allows you to 
store end print up screens instantly. It 
can be used in any program. 



ls 



10 BORDER ©: PHPEft 0: INK 7: £- 

15 RESTORE 

16 FOR n=iB@0S TO 4S02S 
20 READ a: POKE n.a 

30 NEXT n 

4-0 DflTR 33.3,64^17.4-6,117,1,0., 
27 ,237,-176 >2©I ,33 , 4-6\. 117, 17,8,64 
j 1 ~j , £7 , 237 , 176 , 261, 155 , 14-4- .* 234- , 
, 

50 PRINT fiT 0,0J"LOfiD SCREEN F 
ROM TAPE RND 1 U2LL": PRINT "SRU 
E XT INTO MEMORY FOR INSTHNT"; P 
RINT "RECfiLL AT RNY TIME! ! * " 

60 PRINT ; PRINT "TO 5RUE SCRE 
EH TYPE" 

7© PRINT "RfiNDOMIZE USR 40000" 

se print : print "to print up 

A SCREEN TYPE" 

50 PRINT "RANDOMIZE USR 4-0012" 

1©0 PRINT PRINT PRINT "HERE 

IS RN EXRHPLE . " 

12© PRINT FLS5H i; "PRESS PLAY O 
N TPiP^" 

130 LORD ""5CREEH$ : RANDOMIZE 
USR 400S0 

14-0 PRUSE 0: CLS : PRINT RT S,0 
; " PRESS R KEY" TO PRINT UP SCREE 
N": PRUSE 0: RRNDOHIZE USR 4-0012 
: GO TO 140 
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BASIC Screensave 



This is a BASIC version of the preceding 
program, also intended for the 48K 
computer. It was also written by David 
Perry. 



1 CLS : PRINT "THIS PROGRAMME 
UIILL STORE THE": PRINT "SCREEN 
IN MEMORY AND THEN PRINT IT BRCK 
. RS RN EXRMPLE I WILL": PRINT " 
[ tpt THT? PROPRRHME , SfiVE IT RND 
f HEN PRINT IT BACK ONTO THE" : PR 
INT "SCREEN." ,_ _„--.- -n^ 

3 PRINT : PRINT "THE FRuGkSHH 
E IS TOTRLLY BR5IC" : PRINT "RND 
CRN BE USED FOR MRNY": PRINT "DI 
EFERENT PURPOSES 



"PRESS fiNY KE 




: LIST SO 

R=3B0©0 : REM RDDRE5S TO 



3 PRINT : PRINT 

' TO STRRT" : PRUSE 

10 REM 

2© REM 

3© REM 

40 REM 

45 CLS 

50 LET 
3AOE TO 

60 FOR X=© TO SI 

70 FOR Y=0 TO 31 

SB LET RS=5CREEN* (X.Y) 

S5 PRINT RT X,V; " " 

30 POKE fi.CODE A$ 

100 LET R=R*-S 

110 NEXT Y 

120 NEXT X 

13© REM 

14© REM s , # *2.p R ;E NT up^.***. 

1S0 REM 

16© LET R=3©SS§: REM ADDRESS TO 
LORD FROM 

17© FOR X=0 TO 21 

130 FOR Y=© TO 31 

190 LET e=PEEK A 

230 PRINT RT X,Y; CHR$ & 

210 LEX R=A*I 

220 NEXT V 

£30 NEXT X 
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Ireland 



To show your computer's graphics off at 
their best, run this program by David 
Perry. The awesome task of entering aLL 
that data will be rewarded by the quality 
of the final picture. You can incorporate 
this program with the SCREENSAVE one 
[either BASIC or machine code] so you can 
get Ireland up on your screen instantLy. 



SDFD 1 - 



IS 


BORDER 1 : PSFt 


RIGHT 3: CL5 




11 


CL5 




21 


FLOT 123.. 135 


SI 


FOR F=l TO 


ISO 


41 


READ a ., fa, C 




51 


DRflU a . b , C 




51 


NEXT f 




ST 


PLOT 1©3 , 123 


71 


FOR f=l TO 


Jp 


SI 


READ a , fa, e 




SI 


DRSU a . fa j c 




101 


NEXT t 




105 


PLOT 55 , 5S 




11© 


FOR f = 1 " TO 


f 


12S 


RERD a , fa , C 




13© 


DRflU a . fa, C 




14© 


NEXT f 




14-5 


PLOT 35,52 




IS© 


FOR f = 1 TO 


S 


IS© 


RERD a , b, *-. 




ITS 


DRflU a , b_. c 




1SS 


NEXT f 




135 


PLOT 66.87 




13© 


FOR f=l TO 


5 


20© 


RERD a , fa, C 




21© 


DRRU 3-bjC 




22© 


NEXT f 




225 


PLOT 32 t 90 




23© 


FOR f=l TO 


& 


24© 


RERD a,b,c 




25S 


ORRU a ., fa > c 
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NEXT t 





INK 
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2S5 PLOT 35 j 33 s DRflU 8,a,S: DRfi 
i-J -1 .. 2.. : DRfiU -2.-2,©: DRRU -2 . 
-3,S: DRRU 4- , 1 . S 

270 PLOT 30.. 125: DRRU S.3.-PI/2 
: DRRU -2,2,©: DRRU -3 , 1 . © : DRRU 

-3 ., -2 , PI/3 : DRRU 6.-3.-PI .--3 

23© PLOT 55,115: DRfiU'3.-l,S Q 
H'RU -3,4,PI,'2: DRRU -I.3'.PI/2 ; D 
RRU -3,©.. -PI: DRRU ©,-2.0- DRRU 
2 .. -4. , -FI/£ 

1©©© DRTR 3,5,e,-£.3 J -PI/2 ; - £ |-,6, 
0,-1,5,0, -7,7,PI,-2, -S,S,PI>2, -3, 
-2, -PI * 

1©1© DRTR -5,©..© , -4 , -5 .© . -3 - -1 , © 
,1,4- ..0,7, 5,0, -SjSiPt/*, -3 .5 ".©.-3 
,-2,-FI,-^,-S, CP I/1.5J 




s , -a,E,3, -a,e,-L-a.&, -7 . i . p x>4 

104© DRTR -3,2,e.-3;-6,pi/4.,-l,£ 
,0,-5,S,PI/2, -3,2,0,-1, -4 , P I , -3 , 



-10,PJ/4 



1050 DRTR -2,-5. -PI 

I05S DRTR 3, -2, PI, 4 , -1 .© .© . -2 .PI 

*. —v , -i.s. —i » -5 1 © * — & . -a.e.i, -4. , p i 

,2,-4.,PI,4,S,PI/i.5,5,-2.PI*l,a 
107© DRTR 2,-l.PI/2,5.-5.PI/I.5, 
9.1,0,-1,-3,0. -&, -l,e,-4,-7,PI/B 
10B© DRTR 8.-2.Pl.-l,-5,6,-7,-5. 
P I /5 , -4 , -3 , . 1 . -2 , PI . 7 , 2 , © , 6 ". , P 
1,-4, 1 . -1.0.-3,0.©. -5.-5, -PI/3 
109© DRTR -1,1.0.-1,-3.0.1,-2,0, 




11©S DRTR 2 . S .© .3 . -2 , PI/1.5 , 4 . 1, 
PI/4,6 .2,©. -S, -4 .0 . -5 . -5 .© . 1 , -3 . 
PI, 3, 3, ©,2.1, 0,3, 3, ©,-7, -2.0,2, - 
3 . P I , 5 . 2 , © . 2 , -3 , , 4 , -2 , -P I /& , 4 , 
,©,2,2,0,4,-1,0,3,2,0,5.. l.PI/i. 5 
1110 DRTR 4.2.PI/£.5,3.0,0,3,PI, 
,3,PI/1.5.4 .0 .0 . 1 . -5.PI/4.2>,0 
, 1 , 2 , © , 4 , 2 , © , © , 2 , © , 1, 1 , , 4 , © ^ © , 3 
,2,0, -l,3,PI/2,4,2 .0,5 . l,PI/4,4 -. 
1 , PI/1 . 3 , 1 , 1 , © , 4 , , PI , 4 , -I , © . 2 , © 
.0 :7.0,PI/4 
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1 12© 


DffTR 


-1 , 


..!.© 


. 4 , . G 


1,3, 


/6 = 3 


,6,S,- 


1.3 


113© 


DRTR 


-3 r 


.a - - 


1,0.0. 


3 . P 


, -2, 


3,0,0, 


3.P 


,0,3 


, -PI ,C- 


i j o j. 


,0,1 


. B 




1146 


DfiTfl 


4,0 


,0,? 


,PI/6, 


2 , 3. 


1 , 10 


,PI/6, 


-2 , 


115© 


DRTR 


-5, 


lies 


DflTR 


1 . 3 


,pi/ 


1 .5 . -2 


i . 1 . 


.li" 


1,0,4-, 


-1 . 


117B 


DflTR 


3 .4- 


^o 


-1..©.. - 




,0, - 


3, -PI/ 


"O 


11S0 


DfiTfi 


3 .2 


1 ,PI 


^6 , -4- , 


3, - 


119S 


DRTR 


2 3 


.. 0, -3,PI/2 


.0, 


1200 


DfiTfl 


4- . - 


, ., j 3 , © , 


-4, 



3 . PI/5 . -2 , 3,PX/4 . -3 
5,0,2,?.Pi/4. ,2,6,PI 
,PI/2.3,il,PI /6 
3, PI /4 , -2,0,0.3.1;© 
I, -1,3, 0,0, 5, PI ,'1.7 
I/3.0,3,PI/3.-1.0,0 
PI/4, 4.,2,PI/6..3 ,5,0 

,0,a,2,PI/3, -1,4, PI 
,PI,2, -9,e,2,0,PI,- 
3 , P ± /& , -2 ,1,0 
-3 , PI/4 ,0.2,0 

.Pi/6,2,5 .PI/4, -3 .© 
-PI/1.5 . -3. -S, -PI/3 
PI/5 

,0,5,5:-PI/4,-l ; l,0 

3, -PI/3, -3, -4, -PI/3 

.0.2, -1,0 .5,0,0, —3 . 
PI/1.75.-3.-4, PI/3 
, , -2.5,PI/2 / S, -2,0 
-3,PI/2 

3,PI/6,4.-4,PI/6,l, 
5 , P I .-'5 , -5 , -1,0 
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Master Copier 



This handy program from David Perry will 
copy machine code programs automatically. 



If there is a BASIC loader, then you must 
copy it first, by typing MERGE "" then 
SAVE"name" LINE the Line which Loads the 
machine codB part. This program reads the 
header, loads the program and then tells 
you how to save it. Just fo L Low the 
prompts and you'll have no trouble using 
this program. 

5 GO SUB 31 

S CLERR 32747 

"7 FOP t=3S74S TO 337&1 

S REfiD X: POKE l^X 

Q DflTfi So , ©2 - S , 3S 1 j ^3 _» , 

~? . 20 . . 205 , S6 , 5 ., 2© 1 

1© NEXT >. 

1 1 PRINT RT 5 , 2; FLASH 

NOW LORDING THE HERDER* 
S.RT 7, 1©; "PLEfiSE URIT" 



155, 1 



1; "I RH 

; FLASH 



12 RRNDOHXZE USR 3274S 

13 LET u=l: GO SUB 15: 
14- CLS : PRINT RT 0,10, 

Da ta 



15 

£4 

16 

&9 

17 

73 
IS 
19 

2010 
2© 
21 
22 
23 

K 



XF 

IF 

IF 

IF 
LET 



PEEK 
PEEK 
PEEK 
PEEK 



32000=0 THEN 
32©0©=1 THEN 
32000=2 THEN 



LET u=0 

"He3-i€f 

GO TO 
GO TO 

GO TO 



ET z:$= 



32000 <:> 3 THEN RUN 
": FOR B=32001 TO 



LET Z$=I$+CHR$ (PEEK BJ 
NEXT b 

LET R=PEEK 32011 



LET B=PEE 



32012 

24 LET 

25 LET 
K 32014 



N=R + iB*2563 
R=PEEK 32013: 



E=PEE 
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25 LET M=A* SBs-25^ 

27 LET 3=PEEK 32015: LET g=PEE 
K 32015 

2S LET G=R* iB*.256 5 

S9 IF U = l THEN RETURN 

3(3 GO TO 47 

31 BRIGHT 1: BORDER 0. PfiPER © 
: INK 7: CLS : PRINT " MR 
STER COPIER" 

32 PRINT " ============ 



33 PRINT 

34- PRINT "THIS 
COPY MfiCHIME" 

35 PRINT "CODE 
J1F1TICRLLY , " 

35 PRINT 

37 PRINT "IF THERE 
LOADER THEN YOU MUST 
ST" 

SS PRINT "BY TYPING 
THEN" 

39 PRINT "Sfit-'E "name " 
e tine which loads the 
ode part" 



PROGRAMME U ILL 
PROGRRHHES AUTO 



15 A 
CORY 



BASIC 
XT FIR 



MERGE 



LINE th 
lachie c 



46 PRINT 
HE REfiDS ~f 

4-1 PRINT 
RND THEN" 

4-2 PRINT 
E IT . " 

4-3 PRINT 
CASSETTE Rf 
SECTION" 

4-4- PRINT 

45 PRINT 
HEN READY" 

45 PAUSE 

4-7 CLS : 
COPIER" 

4-6 print 



PR INT "TH IS PROGR AH 

HE HERDER" 

"LORDS THE PROGRRMME 

"TELLS YOtT HOO — TO SflV 

PRINT "!.,-_„ INSERT 
STfiRT DFMRCHINE CODE 



'3. 



, CHECK LEADS" 

. PRESS ANY* KEV' U 



0: CLS ; RETURN 
PRINT RT 1,S ; "MASTER 



RT 2.5, 



4 5 PR I NT RT 3 , i 

e uou must first 
50 PRINT" "have 
loader and": PR: 



tj "To save the p 
PR int "cassia t 1 
of alt" 

saved the bas £ c 
INT "you must re 



Kind the cassette to": 
e start of the MftCH XKE 



PRINT 
CODE" 



th 



PLAY ON THE T 
"Uhan i t has 
"SRWE ";:z*; " 

BLANK CRS5ETT 



51 PRINT "section then * NEU ' t 
his"; PRINT "prograst&e and type" 

52 PRINT : PRINT "LORD """iZ*; 

"""code "; «,- " J ";n 

53 PRINT "CHECK LERDS., PRESS R 
KEY. PRESS"-. PRINT ' 
RPE RECORDER. . . " 

54- PRINT : PRINT 
loaded type -. " 

55 PRINT : PRINT 
code ** : m ; " .. " ; n 

55 PRINT "INSERT 
E. CHECK"; PRINT "LERDS, PRESS REC 
ORD & PRESS A KEY" 

5? INPUT "Copy to the printer 
(y /fi) " ; a$ 

58 IF a$="y" THEN COPY 

59 IF a$="n" THEN PRINT RT 21, 
(2; BRIGHT S, "YOU SHOULD WRITE TH 
IS DOWN THEN! " 

60 INPUT "fira there any more ifi 
achine code sections to copy ly s 
n > " ; a $ 

51 IF a$="y " THEN RUN 

52 PRINT PT 21:2; FLRSH 1 ; PAP 
ER 2; "PRESS ANY KEY TO 'NEW* i ! * ! 



53 
54- 
loade 
SS 
55 
&7 

* ; o 

55 

to 



PRUSE 0: PRU5E 0: NEU 

CLS : PRINT "YOU have JUS t 

d a BASIC": PRINT "header" 

PRINT "IT IS CALLED" 

PRINT z $; " LINE " : » 

PRINT "ITS BRSIC LENGTH IS 



y 

n . . . " 

69 
loade 
head 

70 
71 
72 

y to 
n . . . " 

73 

loade 
AY he 
74- 
75 



'Press any Ke 
PRINT "agai 



PRINT ; PRINT ' 

run prograisfae"; 

: PRUSE 0: RUN 

CLS •. PRIKT "You have Just 

d a NUMERIC": PRINT " RRRRY 

er" 

PRINT "TT IS CALLED" 
PRINT Z $ 

Press any fce 



PRINT : PRINT 

run prog rasa me " -. PRINT 

: PAUSE 0: RUN 

CLS : PRINT "You have 

d a CRRRACTER": PRINT 

sder " 

PRINT "IT IS CALLED" 
PRINT Z$ 



aga» 
Jus t 

" ARR 
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70 PRINT : PRINT "Press any Ke 
w to run proqraffise"; PRINT "agai 
n - . . " : PfiUSE <3 : RUN 

MRSTER COPIER 



THIS PROGRRHME UI1_E_ COPY MRCHINE 
CODE PROGRRHME5 RUTOMRT ICfiLLY , 

IF THERE IS P. BR5IC LORDER THEN 
YOU MUST COPY IT PIP ST 
BY TYPING MERGE"" THEN 

i>fi<JE"naie" LiNE the line which 
loads the lathie coda part 

THIS PROGRRHME REROS THE HERDER 
LORDS THE PROGRRHME AND THEN 
TELLS YOU HOU TO SRUE TT . 

1 , . . . INSERT CRSSETTE RT STRRT OF 

MACHINE CODE SECTION 

2. -..CHECK LERDS 

3. . . -PRESS RNY KEY WHEN RERDY 



UTILITIES 

AND 
DEMONSTRATIONS 
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Biorhythms 



Now you can chart your ups and downs in 
this graphical BIORHYTHMS program. 

There are three cycles, which begin at 
birth and continue right through our 
Lives, which are believed by many to heve 



PhUS- 



3 l 



tv: e n t a i 



esiotiona L 



in i ms n in i j mi si in i n si n i 



20 th 



• Sth 



an effect on our lives. The three cycLes 
are as fo Llows: 

PHYSICAL - this is a 23-day cycLe which 
controls such things as endurance and 
strength 

EMOTIONAL - the 28-day emotional cycle 
governs feelings of optimism and pessimism 
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MENTAL - Logic and reasoning come under 
the sway of this 33-day cycle 

The program is self-prompting and produces 
a very effective display. 



-P.HYT 

16 

, "Day 
"; c 
20 
Month 
25 
30 

Cd-tO 

S00 

sic* 

S15 

= 10 T 

330 

3 1 

£ Si o t i 
93© 
905 
910 

i vu 

9£fci 

1000 

1010 
ND Li = 
-SSt U 
1S20 

I03y 

104-0 

1050 

f m$t 



PRINT AT 0,0," BID 

HH 

Input ' ' En ter Da te Of Bif th 

'•' i a i " Month ";b,' : Year 

INPUT 'Enter Date Nom ",," 



"Jd, 



ea 



, e 



LET t=INT i i ie -C 3 * 365, 25 3 + < 

*3Si. 35; -a> 

FOR r =0 TO 255 

TF L r = TNT Sr > bJ * b THEN F OR L» 

n 20 PLO- : r , u : NEXT *-' 

NEXT r . .„,. 

PRINT RT 21,0; "1st 10th 

20 th 30 th-' 

PRINT flT 0,0, INK 1., "Physic 

; INK 2 ; "cental " ; INK A, 

on a t " 

FOR r=l Tu 3 

LET l=2*FI* It - i INT f t SV J *U 3 

LET fc =£*PI* (' 33-U J *. 03 

FOR 3 = 1 TO K + U(2tPI) STEP 

PLOT INK ( i 1 R-ND O =23 3 + t'2 ft 
25 3 * (4 PJND u =33 3 1 , (a - I 3 * (35 
j , 90+SIN a #50 

NEXT a 

k i = VT -r- 

DRTP. 23,26,33 

INPUT "fincthsr l-q ? ; a $ X 

£j «s"U*' THEN GO TO 1 
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Paint Pot 



This clever program from Graham Charlton 
fills a randomLy generated shape with the 
current INK color. Lines 10 to 6D draw the 
shape, and the subroutine from 9000 
onwards fiLLs it. Make the strings [A$ and 
B$) as Long as possible on your computer. 
Note that they take up a lot of memory. 



10 

ao 

30 
4.0 

50 

60 

7© 

100 

5000 

5010 

1020 
^030 

i 4.0 

'050 

^60 



CIRCLE 1 
PLOT 100 



0., £0. 

50 
4.0 , 
S, 4-0 
-4-0, 
0, -4 
9000 



15 



DRRLt 

DRRU 

DRAW 

DRRU 

GO SUB 

STOP 

DIM 3 $ (99993 

DIM b$ (99993 

LET z-1 

INPUT X 

INPUT y 

PLOT x . y 

IF POINT 
+POINT 
THEN GO 



070 
05© 
030 
100 
110 
120 
130 
14-© 
150 
1S0 



=il?0 
D TO 
9130 
2190 

"'-'200 
3210 



(x+i.. yj fPOINT (x- 
( X .. y + 1 3 +P0 INT i K j. U - 1 f 

TO 9120 



LET 2=Z-1 

IF 2=3 THEN RETURN 

LET X =CODE 3 $ (23 

LET y=CODE b$(z3 

GO TO 9050 

LET 3 $ (2 ) =CHR$ X 

LET b$ (2.1 =CHR$ y 

LET 2=2+1 

FOR C=-l TO 1 

FOR d=-(C=03 TO iC=0J 



STEP 



IF POINT (X+C.. y-fd> =© THEN G 

9200 

NEXT d 

NEXT C 

LET X=X+C 

LET y =y + d 
GO TO 9050 
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Timothy Leary 



"his program by Damian Steele creates a 
lumber of drama ti c graphic displays to 
iemonstrate convincingly (if you still 
leeded convincing) haw effective your 
;omputer's graphics can be. 












ffliitiiiti 



#Ji# wiffii ffifllf fffll ill «\ vv^vvKSg® 






__1© PRPER S: EQROER 1; JHK 1- L 
rVi- r'n^--^ LEI S=i>: LET £=0- 

i-t. I L_- = ; i_"*£R % 

2S CIS ; " PRINT U0;RT ^ , rt - n 

„^_ ZX TRIP * ""' p 

R f«5 S!^X 2^ I}= BORED..." 
10® Fop r=_x to v step g 

MS £= P>=123 THEN GO TO *00 
^130 PLOT 0,.R_ u.EJRU IYsl t i5?.i _ E , 

S0 3S IF INKEY *<>" " T.HEN GG TD JJ^ 
140 NEXT R 
200 LET B=S+6«1, LET C=C^= 

400 LET S=3 

450 Gu SUB ?0£: 

S00 OUER 1 

510 FOR R = l TO S55 3TEP- « 

515 IF iMKEVi-f i"" -r<-ii^fi "r- -*-*•* -* .-» 
iaS -MJHVfir**? s HLN ^^ *D 10 

520 PLOT R,£5_ r^m: ±* -_5 -^ 

5-30 NEXT R -^'^ 

535 IF 5=1 THEN GO TO g.^0 

5^7 GO SUB 700 

540 FUR h=! TO 175 STEP s 

©I 4 " 5 IF INKEy 5°"" THEN GO TO 10 

"550 PLOT 0,R: DRRU 2^^ S 

550 NEXT R 

i=>b5 GO i>UB 700 

|g| *F B<>! THEM LET E =1 , GO TO 

50© Xf* E=l THEN LET E=*v .Gil .Tjl 

520 LET F=F+1. TF FtfaJ THEN i_£~T 
5 = 1,4-: LET B=0. eo TO 4-10 
S50 GO bLIB 700. GO TO 1O00 
700 FOR H = l Tu 10; BEEP ,M7. fjd 
Nt>*30J +35: f-4£XT R 
300 RETURN 

1000 PAUSE GL=- 

1001 LORD "" 
9500 STOP 

I 9 ®!* P 5IKE FLRSH 1; RT 10,10; "STO 
£ THt TRPE- PRINT RT £a-2,-PRE5 
& «? N £o K fX 1° CONTINUE,.. ":' PAUSE 
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Color Test 



Logic Gate Emulator 



This simpLe program by David Perry puts 
all of the computer's colors up on the 
screen so you can tune in your television 
for the best possibLe picture. 



This program, by Neville Predebon, shows 
you the resuLt of having AND, NAND, OR or 
NOR gates in a circuit. Just fo L Low the 
prompts . 



10 BORDER 
INVERSE 



;■ .- pfiPER 

OyER 0: 



0: BRIGHT 1 
FLASH . DI- 



SS i_ET i =-1 
4- . _ 

30 LET i =i -"-1 

4-0 FOP S =3 TO -3 

50 FOR X =0 TQ 21 

60 print at x,n+y 

7© HEXT X : NE>CT y 
30 INK 7 



FOR n =© TO 3 i 3"FE 



INK i ; 

NEXT n 



AT 



1 REM "ga tes " 
5 REM © Prediction 1363 
7 BORDER 6 
1© PRINT INK l^fiT 2.. 13. 
ink 0;AT io..6;"A logic 
. i t y " 
12 INK 
IB PRINT 
to continue 
20 PRINT RT 
': PRINT 
25 PRINT 
PRINT 
PRINT 
PRINT 
PAUSE 
GO SUB 



"GATES'* 
gate ut 



ISjS; "press any Kc 

PAUSE : CL5 

5,1.; "Key the gate 



33 
35 
4-0 
4-5 
4.7 
50 



TRB 5; "AND =1' 
TRB 5; "NRND = 2' 
TAB 5; "OR = 3" 
TRB 5; "NOR = 4-" 
0. CL5 
115 



PRINT RT S.ei 
PRINT : PRINT 
55 PRINT TRB 2; " 



=e^r ^ = DFF 



S^i t Ch 



TRB 2., "Swi t ch 



SO PRINT 
1": PRINT 

65 IF INKEr£="£" THEN GO 
IF INKEY$="3" THEN GO 
IF INKEY$ = "4-" THEN GO 
PRINT TAB 4;"Oulput - 



A - 001 
B - O10 



70 
75 
30 

: GO 
65 

: GO 
30 

: GO 

95 

100 

o ther 



TO 100 
PRINT TAB 
TO 100 
PRINT TAB 
TO 100 
PRINT TAB 
INPUT INK 
run? ";a* 



4. 



'Output 
Ou tpu t 



TO S5 
TO 90 

TQ 9 5 

J§EEB 

¥*¥*$■ 
EE5B' 



4-i "Output 
1; "Do you 



need an 



105 IF a*="yes" OR 3t="YES" THE 
N GO TO 15 

110 PRINT . PRINT INK 2;TAB 9; " 
Uer y well": STOP 
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115 IF INKEY$="1" THEN PRINT RT 

■3,4; "flND"; 

12© IF INKEY*="2" THEN PRINT AT 

3, *; "NftND"; 

125 IF INKEYt="3" THEN PRINT RT 

3 * ' " OR " ' 

13©' IF INKEY¥="*" THEN PRINT fiT 



3,4-; 'NOR". 
135 PRINT 



GRTE" : RETURN 



Aural Assault 



Each RANDOMIZE call in this brief program 
by Graham White produces a different 
sound. There are five such sounds which 
you can incorporate into your own 
programs, 

10 CLEPp 323S9 

20 FOR a =324.0© TO 32549 

4-0 NEXT s 

5f ftflTfl ?:■ ,■ L-s , 2 9 7 , 33 , 2 5 , , 2 7 , 40 , 
... ='i'-=i ,5y5,.ISi; 15 ,. i'2-5 , 1 7 , 4- , , 1 6 7 , 2 
■■-■ l , 'dt; , IBS , 2 = 4 , S6S , 32 , 237 ; 193, 1© ,- 
330,281 - 

§0 £>RTR 6 .20, 19? ,33 ,-0,3,17, 1 ,0 
i = -- = i 2 ?? ' 1» 1 ; 3 ,- ^25 , 17 , 16 , © , IS? ,- 2 
:^ ? , SS i ;_-;=: , ^40 , ly3 , 16 t 233 , 201 ,0,0. 




..5».^ ! w _*,;=, 197, 33,0, 6, 17,3,0, 
S ii ' ^§ 5 £ A §i * 3, 225 ,17,3,0, 167 , 237 
*3&j3& ,248^ 133, 16, 233 ,201 ,0>0/0, 

_ §® ^- A 'I" 5,50,197,33,g,i,17,l,£ 
4 gSg A a@S , ISi , 3 , 225 , 27 , 16 , , 167 ,2 
3 r , t:2 , -^i- , i£4.0 , 193 ,16, 233 ,231,0,0, 



2 



i@0 RANDOMIZE U5R 324-00 



110 



JWO0MIZE USA 



:2430 
22© HKNDOHiit USJ? 32460 
130 hhHDu^IZE USP 32*90 
1*0 RfiNDQMIZE IJ6R 32520 

■7 CTi*5i 
-L ■_' £-* 
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Rainbird 



Now you can see how your computer can mix 
its standard colors to produce up to 128 
di fferent shades. 

Some programs which produce this effect 
use a graphics character with a checker- 
board pattern in order to produce a 
pattern of dots to mix the colors. This 
program allows for this option, as well as 
two others. You can see that horizontal 
lines produce e color which is more steady 
on the screen than the checker-boerd 
pattern produces. 



SR 

**a 

SR 
'"b 

SR 
5 " c 

!_S 

l_S 
3 



2 FOR a=S TO 7 STEP 2 r POKE U 

"+atl,BIM £40g!£ii?!£»jpi^ . .t.-i-r.Y:.* -3 

3 FOR B=S TO 7 STEP 2. POKE U 
■'b = H3,rJ9 JB_l£Uia_..£V J&W&E i^P 

'•+3 + I.BIN i510ii?J3J. svBM^ B 
4- FOR a =0 TO 7 STEP 2. P-fAKE" 1' 

'■r'+a, ejn mi 0000 .- -*--rth.E i isp 

" + a + i , E IN 00001 iii. NEXT a 



7 : INK I 



BORDER 7. 



X3@ 
0: 



PO.ROE.f? -P. 

l . 

paper" 



_c 

IT 



b* 



6 PfiPER 

: GO XG 

10 PAPER : INK 7 

: PRINT ST 16.. 3; 
4- 5 to 7 

15 FOR C =0 TO 1 

2© PRINT fiT 13. 12; "bfijtfat "; C_; 

PRINT »e; "Preii a.ny >;ey or '5p 
e' for the Ne-ou " 

25 FOR a =0 TO 7.- FOP £.-0 TO 7 

30 BEEP . 003,RNP*4-0-10 

35 IF b=© THEN PRINT &T *3-^*3< 

4.; a; RT 0-0; "i .■■_-.? *" -, 

4-0 IF d =1 THEM PPXNT BBJfiH T r 
INK a; PRPER b : &T a »£.bU;"= : 
. fiT a *a ■*-! fa ^4 : " 



S7D 



**-! IP C L =2 i HEN KfjJNT fiP.Trs.H~r 
; INK a.; PPPER b; PX a*2,h2-4, 

11 ^ T T - f2 + 1 - b * d - : "«H»" 

42 IF Cl=3 THEN PPX.NX BRJRHT 
j INK a; PfiPER h;BT a +2 ,b*4: 
%"^flT a*2*l .b*4; ■•^^§" 

4-5 IF fc=0 THEN PRXNX AT AjaSM-J . 
b*4.: a; AT e.g/'ins" 
50 NEXT i>; .NEXT 3 

X,~E.W GO TO £i£l 
" TMEN .Nf.XT C- 



60 IF JMKEY$= 
70 IF IWK iTy.-E ; 

GO TO 15 
60 SO TO 150 

100 PRINT fiT 
ECTRUM ■' ; OUEP 



L; "12S COLOUR Sp 
Pit 0,-1; •»__ 



PRINT fiT 2 



110 
d a m o fi s t r a t e- a he- 
ight colours of 
ift can be aixed 
12S di fferent 

120 PRINT ' " SoiiiS 
h use this ef 

c cha ra c ter w i 
ype pattern of 
colours,. tJbi s*n.p 
hu t generattya 
tal Lines "mi 

this way thest 
feet is re 

SKaqcjeraiEdi " 

13© PRINT fiT iS.a 



to 



f £ C 
th 

do 
JJn, 
i t: r 
I I 
i gh 
due 



"Th i s 
the s 
t h a ^ 
pfodu 
shade 
p r 6 g 
t iss^e 
a cbe 

t£ tO 

O jj* . 
iei- £> 

bi d r x 

t dot 
ed r a 



pr 

.X ~E 
c e 
s « " 
F a &j 

a 

JS-3 b 

ESi 

/ h 

±>e t 

rr 

the 



ogran 
dard e 
P e c t r u 

lip to 

s whic 
£*- r -a.p_fco 
■narri t 
x the 

on lor? 
t er a_s 
ami b f 

r J.ban 



".HJTT .SF-ry .Kfy 



14© 

145 
15© 
LS : 
ENU" 
160 
I i ne 
ess b 
.- 

170 

ombi 

read 

It 
and 
chan 

blue 



PHUSE 3 

PRPER 7 : IN 
PRINT PT 1^ 

PRINT fiT SV 

— • H X ! 

C a r d pa: tt ,r.D 
3 : E>a shed Lin 



PRINT PT 13 
nation /r>r & 

fCOift the Si; 

must be note 

paper cdIdlj r 

yeable, that 

ink on red 



K 1: BORDER 7: C 
lL5,: T.WliEiaaF Jl..: \*M 

0; "1 .- .Hf : .fjjr.D fa J 
P'\PT 7,B; "2>.r;h 

; "The cr*Jmtr r 
b-S.ha.H_e jV,P J^p 
^ f the char t - 
that the jjjh 
a j e r» d t inter 
: s f nr e-.v 3j»p i a r 
&&*>£■!■ is _=* di 



,1 
ar 
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F feren.t colour to re.rf f&& ap -hi 

1SS PRINT fi0; RT 0,1; INK i.i "The 
routines for wsners &JJV9 t.bf-ii^fj 
graphics are in Lines ^-^—l" „. „ 
ISS IF IMKEY$i>"" "THEN BO TO J? 

2S0 LET 3 $ = INKB$ 

205 IF a $ > " 3 " OR a $ f " 3 " THEM GO 

to ass _. j, _ 

210 LET Cl=U«L. 3$: SO TO 3 £* 
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Line of Best Fit 



This useful utility program, written by 
Naal CavaLier-Smi th, at Lows you to enter a 
number of points. The computer wiLL then 
plot a line Df best fit for these points, 
end give the equation of this Line. You 
can see it in action in this samp Le run: 



Equation of best fitting line is 



1S3 



.00 



Input points were.-, tX.Sl 
( 4-.= S) (40..B0.1 (S3.4PJ 
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Equation of bsst fitting tine is 

V"=0 . 93X+24 .5 



10 e 



y 



y 



y 



/ 



2L0S 



This is the Listing for your own 'line of 


best fit' : 


10 


LET 3=0; LET b=0: LET W =0 


20 


LET K=0; INK 7 : PRPER 


30 


DL5 , SORDER 


4-0 


input "How tiiany points'?"; n 


50 


DIM X \T\i 


50 


DIM y (nj 


70 


FOR C=1 TO n 


75 


INPUT >i (£J ,4 \ CS 


75 


PLOT X f . C } , y ( C J 


30 


LET 3 = 3+X £ C) 


90 


LET b = b+y ( C J 


100 


NEXT C 


110 


LET 3=a--'n. LET b=fe/fi 


120 


FOR C=l TO n 


13S 


let M=M+[{tx(ci-a?#ty(cJ-b> 


.1 s c ifiES (xECJ-antaj? 


14-0 


NEXT C 


14-5 


LET m =51 .'Ti 


150 


LET K = b-IS S-3 


1613 


LET C=0 


195 


PLOT 3.0; DRflU 130,0: PRINT 


RT 21 , 13; " 100" 


105 


PLOT 3,0: DRflU 0,100; PRINT 


AT 3,3: "100" 
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_200 PRINT at 0,3; "Equation Of b 
?st fitting Lineis" 
213 PRINT RT 2,3; "Y="; INT lro*l 

S +Ai :< £*•** '? + C ; ^T 1**10+. 5) *10 

220 FDR C =1 TO 10E 

225 LET d=ffi*C+K 

^?S k IF d< 100 THEN PLOT C,d 
24-0 NEXT C *»**^ 

250 STOP 



Equation or best fitting tin> 
V=0. 98.V. + H 



i s 



100 



/ 



X 



x 



100 
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Hall of Fame 



This can be used in any arcade type game. 
As an example, type in a number above 100 , 
then your name, and in a second or so the 
computer wi I I ceLculate and print up the 
new HalL of Fame. This program was created 
by David Perry. 



1 REM HALL OF FAME 

2 REM CO DAVID PERRY 19S3 

3 REM 

4 REM NUM=NUMBER OF SCORES 

5 REM 
h REM 

9 BORDER 0: PAFER 0: INK 7: B 
RIGHT 1: CLS 

10 LET NUM=10: DIM N(NUM+1): D 
IM N*<NUM+1,8>: FOR N~l TO NUM: 
LET N(N)=UOO-(N*100) : LET N*(N) 
=" SPECTRUM": NEXT N 

15 CLS : INPUT "FOR AN EXAMPLE 
ENTER YOUR SCORE SCO 

RE: " : SC 

20* IF SCONC10) THEN GO TO 20 


30 LET NUM=11: IF SC>=NCNUM) T 
HEN INPUT "ENTER S INITALS' ":P 
$1 IF LEN P«>B THEN GO TO 20 

35 PRINT AT 7.0; FLASH 1 : BRIG 
HT 0: INK 7; PAPER 2; "THIS WILL 
ONLY TAKE A FEW SECS ' " 

40 IF SO=N(NUM> THEN LET N(N 
UM» --=SC: LET |M$ CNUM) =P* 



276 



SO FOR A=l TO (NUM-1): LET B$ = 
N*(A): LET C*-«N* ( A+ J ) : LET B*=NCA 
>: LET C=N<A+1): IF B<C THEN LE 
T N (A) hsCi LET NCA+-U -B: LET m (A 
!"C$: LET N$CA+1)=B$ 

60 NEXT A: FOR NH TO NUM-1: I 
F N(NXN(N+1) THEN GO TO 50 

70 NEXT N 

BO CLS 

90 PRINT AT 2.4; "H ALL OF 
F A M E ! " 
100 PRINT AT 3.4; "============= 

;z =:: :rr -:r T rr ^t £r :— :;; :z? * ' 

110 FOR N=?i TO NUM-1: PRINT AT 
N+ S , 7 ; I Nl< 6 ; " ( " ; I NK 2 : N ; I HK 
6?">";AT N+5,12; INK 7;N(N): PRI 
NT AT N+5,17; INK 5;N*CN>: NEXT 
N 

120 PLOT 0.0: DRAW 255,0: DRAW 
, 1 75 : DRAW -255 . : DRAW , - 1 75 : 
PRINT AT 17. £3; PAPER 2; INK 7;" 
PRESS ANY KEY 1 ": LET I™0 
130 LET 1=1+1: IF I >7 THEN LET 
I-'^O 

140 PRINT AT 2,4; INK 1;"H A L 
L F F A M E ! " 

150 BEEP .01,1*7: PAUSE 2: IF I 
NKEY*= M " THEN GO TO 130 

160 GO TO 15 

200 PRINT AT 10, 4; "SORRY SCORE 
TO LOW? ! ! " 

210 PRINT AT 13.7;" PRESS A KEY 
i ii 

220 PAUSE 0: RUN 
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Spec File 



This outstanding database program comes 
from Michael Briggs. It stores data in a 
very compact way, ensuring maximum use is 
made of the memory. 

When the program is run, you'll be asked 
to enter your name, the f i Le title, field 
titles and the Like. Note that an entry 
cannot be Longer than 256 characters, and 
a field must be 28 characters or Less. 



A menu wi L L be displayed, 
fol lowing options : 



with the 



1/ BEGIN NEW FILE: This 
program, clearing alL data 



runs the 



2/ ENTER RECORDtS): This wi L L ask you 
to enter a record, fieLd by fieLd. It 
will then sort the record into alpha- 
betical order with the rest of the 
fi Le . If you make a mistake when 
entering any field, simply enter "Q" to 
return to the menu 

3/ SEARCH: This searches through the 
file for either a string of Letters or 
a numbered record 

A/ PRINT ALL RECORDS: This prints the 
first field of all f i Les and a L Locates 
a specific entry number to them 
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5/ SAVE FILE: This saves the file under 
the title of the file. If the titLe is 
an invalid file name, the word "index" 
wi LL be used 

6/ STATUS: This will telL you various 
facts about the state of the program, 
such as much space is Left in the file, 
how many entries there are, and how 
Long the computer has been running the 
fiLe 

You'LL find that even though this sounds 
complex when you' re reading about it , 
you'LL find it is really quitB simple to 
run the program. 



REM MICHAEL BRIGGS 
2 POKE 23609,40: BORDER bx IN 
J, 1: PAPER 7; CLS : DIM Z$ (35000 
) : LET 2"1. ; LET CQ"0 

« INPUT "FORENAME. .. " : C* 
9 INPUT "SURNAME . . . " : Sir 
10 INPUT "TITLE OF FILE " : T* 
20 INPUT "NUMBER OF FIELDS " : -' 
30 DIM A*(F,20): FOR A= 1 TO Fa 
PRINT "ENTER TITLE FOR FIELD " s 
At INPUT B*: LET A*<A,2 TO ) *B*: 
LET ft*(A. 1)=CHR* LEN Bt: PRINT 
":-": INK 2:ES: PRINT : NEXT A 
70 PAUSE 50 
100 POKE 23609.40: BORDER 6: CL 
S : INK 0: PLOT 0.0: DRAW 255.0k 
DRAW 0.175: DRAW -255,0: DRAW 
.-1.75: INK 3 
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110 PRINT INK 0: BRIGHT 1 ; AT 1 
, 1 3- L E N T * / 2 ; T * : " M £ NU ' ' 

120 PRINT AT 3,3;" NO 1 . BE6IN 
NEW FILE. " 

1 30 PR INT AT 5,3:" NO 2 . ENTER 
NEW RECORD (S) . " 

140 PRINT AT 7,3:" NO 3. SEARCH 

R EC OR DC. " 

1 50 F'R I N T AT 9,3:" NO 4 . PR I N T 
ALL RECORDS. " 

160 PRINT AT 11 ,3:" NO 5. SAVE 
F I LE . " 

IAS PRINT AT 13,3;" NO 6. FILE 
STATUS. " 

170 PRINT INK 2:AT 15,8; "H MIC 
HAEL BRIGGS" 

1 BO PRINT INK I s AT 1 7 , 1 1 - ( LEN 
C*+LE-:N S*)/2: "FILE FOR ":C*:" "j 

190 INPUT "CHOICE. .. ":C 

195 CLE 

196 INK 1 

200 IF 0<C AND C<S THEN 00 TO 
C$1000 

210 00 TO 100 
10OO PRINT AT 10, 2: "ARE YOU SURE! 

■ ,j* . 
1010 INPUT V* 

1 020 IF Y« < 1) = " Y " OR v * ( 1 3 = " y " T 
HEN RUN 
1030 00 TO 100 
2000 INK 2: FDR A=l TC F 
2010 PRINT AT A*2-l, 13- (CODE A* < 
ft, t) /2) : "ENTER " : AS (ft, 2 TO > 
2020 NEXT A 



2B0 



202 1 PR I NT AT 21,0: I NK 1 : " ENTER 

"'a' , • TO RETURN TO MENU." 
2030 LET £$="" 
2040 FOR fo~X TG F 

2050 PRINT AT A*2-I , 13- (CODE A* ( 
A , 1 ) / 2 5 : " ENTER " : FLASH 1 1 A* < A . 2 

TO 1+CODE A* (A) ) 

2060 INPUT F$ 

2061 IF F$="Q" THEN SO TO 100 
2070 LET E$=E3h-CHR* LEN FS+F* 
2080 PRINT AT A*2-l , 13- (CODE A* < 
A. U /2> : "ENTER " : A* (A. 2 TO 1+COD 

e: a* (A) ) 

2090 PRINT INK 0:AT A*2,16-LEN 

F#/2sF# 

2100 NEXT A 

2110 LET Xl=l: FOR A=l TO CO; LE 

T X*=Z$(XH-2 TG XH-CGDE Z*<X1+1> 

+ 1) 

2115 IF X*>E*<2 TO > THEN GO TO 

2400 
2120 LET X1=X1+C0DE ZS<X1> 

2125 NEXT A 

2126 LET E*=CHR* (LEN E*+l)+E*: 
LET Z*(Z TO 2+LEN E*)=E* 

2131 LET Z=Z+LEN E* 

2140 LET CO^CO+l: CLS : GO TO 20 

00 

2400 LET E$=CHR$ (LEN E$+l ) +Et 

2410 LET Z*(X1+LEN E$ TO Z+LEN E 

*0=Z*<X1 TO Z) 

2420 LET Z$(X! TG X1-+-LEN E*-1)==E: 

2430 GO TO 2131 

2999 REM SEARCH ROUTINE 
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3000 PRINT TAB il:"SEARCH MODE": 

AT 2,0; "ENTER. . . " ; AT 3, 0: N" J I 

F ENTERIN6 RECORD NUMBER. ff 1 
F E NTEK I N G C H AI-: S ONL. Y . " : I N P U T " 
KEYWORD " : K* 

3:004 LET M$=" ": IF K*C1)-"N" TH 
EN LET M$^K*<1>: LET K*=K$(2 TO 



3005 PRINT TAB S: "KEYWORD^" : K* 

3006 LET RET=3040 

3010 LET X = l: FOR A=l TO 00 

3015 LET X1 = X: LET U*=-Z*(X TO (C 
QDE Z*<X)+X-1) )+" ": IF M*="N" T 
HEN 30 TO 3300 

3016 FDR J=I TO LEN VS-LEN K* 
3020 IF 0*1 J TO J-l+LEN K$)=K* T 
HEN 00 TO 3200 

3030 NEXT J 

3040 LET X=X1+LEN V*-l: NEXT A 

3050 PRINT ' *' INK 0: "PRESS A KE 

V": PAUSE 0: GO TO 100 

3200 PRINT " INK 4: "ENTRY NO..., 

":A: LET X2=X1; LET X i=Xl+l: FOR 

K----1 TO F 
3210 PRINT INK 2:A*(K J 2 TO CODE 

ft* Ck > + 1 ):"..." : PR INT INK 1 ; TA 
B 32-CODE Z*(X1> ;Z*<X1+1 TO Xl+C 
ODE (2* (XI) ) ) 

3220 LET X1=X1+1+C0DE Z$<X1> 
3225 NEXT K 

3240 LET X1=X2: 60 TO RET 
3300 IF AOVAL K$ THEN GO TO m 
40 

3310 LET RE T= 3 050 
3320 GO TO 3200 



282 



4000 PRINT "ANY KEY WILL STOP TH 
E SCROLLING DISPLAY UNTIL KEY IS 

RELEASED. " 
4005 PAUSE 

4010 PRINT AT 18, 16-LEN T$/2: IN 
K 2; Tit 

4 020 INK 1: PRINT 
4030 PRINT 
4040 LET X = l: FOR A=i TO CO 

4049 PRINT AT 21,0: POKE 23692.- 
1 

4050 PR I NT " 0000 " : AT 21, 4- LEN < S 
TR* A> : A; " : ":2*(X+2 TO X+i+CODE 
<Z*(X+1>) ) 

4060 LET X=X+(CODE Z*(X>) 

4065 IP INKEY*<>"" THEN GO TO 4 

065 

4070 NEXT A 

4075 PRINT ' * "PRESS ANY KEY TO P 

ETURN TO MENU . " 

4080 PAUSE 0: GO TO 100 

5000 PRINT "I SHALL SAVE THE FIL 

E UNDER THE NAME OF" 

: PRINT AT 10, 16-LEN TS/2: FLASH 

1:T* 
5005 IF T*="" OR LEN TS>10 THEN 

PRINT AT 10, 1: " IN 

DEX ": SAVE "INDEX" 

LINE 100: GO TO 100 
5010 SAVE T* LINE 100 
5020 GO TO 100 

6000 PLOT 0,0: DRAW 255.0: DRAW 
0.175: DRAW -255,0: DRAW 0,-175 
6010 PRINT AT 1,12- (LEN T$) /2: B 
RIGHT 1: INK 2;T*:" STATUS" 
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6020 PRINT AT 3, 2; "COMPUTER ON T 

IMF :" : INT ( ( (PEEK 2367£+25&*PE 

EK 23673) +65536*PEEK 23674) /50): 

" SECS" 

6030 PRINT AT 5,10-<LEN S*+LEN C 

*> /2; "FILE FOR " ; C* ; " " t S* 

6040 PRINT AT 7, 8; "NO. OF RECORDS 

: " ; CO 
6050 PRINT AT 9, 2; "CHARACTER SPA 
CE LEFT : " ; 35000-!? 

6060 PRINT AT 1 1 , 4; "CHARACTERS I 

N FILE : "; Z 

6070 PRINT AT 13, 3 ; "PROGRAM: -@ M 

ICHAEL BRIGGS" 

6075 PRINT AT 20.5: "PRESS ANY KE 

V FOR MENU" 

6080 PRINT AT 3, 2; "COMPUTER ON T 

IME s";INT < C CREEK 23672+256*PE 

EK 23673) +65536*PEEK 23674) /SO); 

" SECS" 

6085 IF INKEY*<>"" THEN GO TO 6 

1 00 

6090 GO TO 6080 

6100 GO TO 100 



2B4 



STRUCTURED 
PROGRAMMING 
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Sketching an outline 



Many times I've written erticLes and 
chapters in books which are supposedly 
going to improve the programming skill of 
those who read them. But every time I 
produce such a List of 'things you really 
should be doing when you program', or 
explain the materiaL to someone, I am 
reminded of an old story about a farmer. 



He was approached by a young man selLing 
correspondence courses in 'Effective 
Farming'. "Don't you see," the young 
salesman said as part of his pitch, "that 
if you take this course you'll know so 
much more about farming?". The farmer 
replied "I don't even farm now as good as 
I know how." 



So it goes, I suggest, for advice on 
programming. I know full well that I do 
not "program as good as I know how". Many 
times I break all the rules, wading 
straight into coding a complex program 
without even a thought for the ideas of 
'structured programming'. 

So I suggest you keep in mind, when 
reading this appendix, that I do not 
realLy belive that you - or anyone else — 
is really going to take the ideas here as 
rules which must be obeyed, come hell or 
high water. The best way to approach this, 



286 



287 



and any other material in a simi Lar vein 
which you come across, is to reed it 
carefully, and make your own assessment on 
each suggestion given. Then, just apply 
the ideas which seem most sound to you . 

The basic idea I'm outlining in this 
appendix is that of approaching structured 
programming by 'sketching an outline'. 

The idea is simpLe, but very valuable in 
order to help you write complicated and 
involved programs, such as many of those 
in this book. Of course, you may well be 
already creating very complex programs 
without using anything like the idea I'm 
about to outline. Even if you are, I 
suggest you think carefully about these 
ideas, so that you can see that they may 
make your job easier. 

The fundamental. idee of structured 
programming Lies hidden in the phrase 'top 
down programming' . This suggests that you 
start the process of programming by first 
stating inwords the broad aim of the 
program you are about to write. You follow 
this up by writing a series of notes - 
each of which will eventualLy be a 
subroutine - which cover each of the main 
tasks which the computer will carry out. 

To clarify this last paragraph, I'LL give 
you a concrete example. Here are the steps 
you could follow when trying to write a 
Noughts and Crosses program. (Note that 
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'structured programming' produces listings 
which are much Longer than might otherwise 
be the case. However, this greater Length 
is more than offset by the fact that 
programs built up in this way are very 
simple to debug and improve, and their 
structure can be readily understood by 
other programmers. You may not be able to 
make such claims with confidence about 
some of your current programs.) 

SET UP INITIAL BOARD 

COMPUTER MOVE 

(A) CHECK IF MIDDLE SQUARE EMPTY, 

IF NOT MOVE THERE 

IB) CHECK IF THERE IS A COMPUTER 

WINNING MOVE, IF SO MAKE IT 

(C) CHECK IF HUMAN WILL WIN ON NEXT 

MOVE, IF SO BLOCK 

tD) IF ND MOVE MADE, CHECK TO SEE 

IF A RANDOM MOVE CAN BE MADE, IF SO 

MAKE IT, IF NOT DECLARE A DRAW 

PRINT BOARD 
ACCEPT PLAYER MOVE 

PRINT BOARD 
CHECK IF PLAYER HAS WON, IF SO STOP 

GOTO 'COMPUTER MOVE' 



As you* LI see if you take a few moments to 
study this sketched outline, you can tell 
exactly which steps the computer wiLL 
foLLow; the decisions it will be caLled to 
make; and the alternative resuLts of those 
decisions. 
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You have aLready completed the first step 
towards writing a Noughts and Crosses 
program. You ' U see, by the way, that it 
doesn't matter at all if you do not yet 
know how you are going to get your 
computer to carry out the necessary steps. 
ALL that matters is that you know that the 
steps must, in some fashion, be executed 
in due course. 



The second step in the process consists of 
turning the sketched outline into a series 
of subroutine calls. In Languages which 
are more structured than the BASIC you 
have on your computer (such as the BASIC 
provided on the BBC Micro, or PascaLJ it 
is relatively easy to call a number of 
subroutines within an endless Loop, with a 
structure Like DO/WHILE or REPEAT/UNTIL. 
These allow you to repeat a series of 
program steps indefinitely until a certain 
condition is satisfied, or the state of a 
pointer or fLag changes. 

In the BASIC we have here, however, we 
have to be content with the humble, and 
much-maligned GO TO. (Much of the reaction 
against GO TO, which many 'serious 
programmers' see as the greatest insuLt to 
the art of true programming ever 
developed, came from earLy and relatively 
primitive versions of BASIC, in which you 
can only follow an IF/THEN with a GO TO. 
This meant the program leapt all over the 
place, Leading to 'spaghetti code' which 
was horrendously difficult to interpret.) 
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The second stage i s to turn our sketched 
outline into a series of subroutine cells, 
endlessly cycled by a GO TO as follows: 



10 REM NOUGHTS AND CROSSES 

20 GOSUB 9000: REM INITIALISE 

30 GOSUB 1000: REM COMPUTER MOVE 

40 GOSUB 80D0:REM PRINT BOARD 

50 GOSUB 2000: REM ACCEPT PLAYER MOVE 

60 GOSUB 8000: REM PRINT BOARD 

70 IF human has not won AND computer 

has not won THEN GO TO 30 
B0 PRINT "CONGRATULATIONS" 



Now, as you can see, we have the 
'framework' for a workable Noughts and 
Crosses program, even though we do not yet 
have a clue as to how the program will 
BCtuaLly work. We can now set about 
writing the program from first principles. 

There are two further advantages of this 
'outline' approach. If there is something 
we cannot, at this stage, actually program 
(Like the basis upon which the computer 
finds out who has won) we can simply put 
in a PRINT statement within the subroutine 
like PRINT "CHECKING FOR WIN" and continue 
to use the program, as we work on it. 
Then, each time the computer should be 
checking for a win, it wi L L print up 
CHECKING FOR WIN. This means you can 
continue working on the program, without 
being needlessly held up on a minor 
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subroutine whi ch you cannot, 
moment, solve. 



for the 



The second advantage cornea towards the end 
of the program development stage, the 
debugging stage. I aLways find this the 
most frustrating, and in many ways, the 
least rewarding aspect of programming. 
Although I can often get a program working 
reasonably well fairly quickly [although 
my first chess in BASIC too nearly six 
months], to get the program from 'working 
reasoneb Ly wet L' to ' performing wi thout 
faults under all conditions' can take as 
Long as it took to get the first version 
even working at aLL. However, when you set 
up the program in the way described in 
this section, you'll see that the 
debugging stage can be greatly simplified. 

For example, you may find in your Noughts 
and Crosses program that the computer 
tends to ignore the bottom right hBnd 
corner, when a move into this position 
would enable it to win, or to block a win 
from the human. From the 'subroutine loop' 
we set up before, we know the computer's 
move must be made somewhere between lines 
1000 and 1999. This immediately narrows 
down the search. If you've been clever, 
Bnd have made each subroutine a series of 
further subroutine, each constructed in a 
similar way to our major subroutine, it 
would be even easier to track down the 
bug. 
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Let's Look at this idea - making each 
subroutine a series of further subroutines 
- a Little more closely. We'll Look at the 
subroutine starting et Line 1000, the one 
in which the computer actually makes its 
move, as this is the most important (and 
difficult to program] of all those in this 
game. 

The subroutine could begin as follows: 

2000 REM COMPUTER MOVE 

2010 LET M0VE=O:REM IF THIS BECOMES 1 A 

VALID MOVE HAS BEEN FOUND 
2020 G0SUB 2200: REM CHECK IF MIDDLE 

SQUARE IS EMPTY 
2030 IF M0VE=1 THEN RETURN 
2040 G0SUB 2400: REM CHECK IF A POSSIBLE 

WINNING MOVE EXISTS 
2050 IF M0VE=1 THEN RETURN 
20B0 G0SUB 2600 :REM CHECK IF A POSSIBLE 

HUMAN WIN CAN BE BLOCKED 
2070 IF M0VE=1 THEN RETURN 
2D80 G0SUB 2800: REM CHECK IF ANY MOVE AT 

ALL CAN BE MADE 
2090 IF M0VE=1 THEN RETURN 
2100 REM A RETURN WITH M0VE=0 MEANS NO 

FURTHER MOVES ARE POSSIBLE 
2110 RETURN 

As I said earlier, programs constructed 
using the 'endless Loop of subroutines' 
coupled with 'subroutines within 
subroutines' make listings which may be 
far Longer than usual. However, there is 
usually Little need to worry about running 
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out of memory tas was the case on the ZX81 
and the T/S 1000 when counting bytas 
became the dominant feature of our 
programming Lives) . The extra typing 
involved in producing the Longer Listings 
wi L L be amply repaid by the extra clarity 
your programs attain, and the much shorter 
time it will take to produce a debugged 
masterpiece of which you can be proud. 

You'll find if you take the trouble to 
start with a 'sketched outline', the whole 
process of constructing a major program is 
much, much simpLer than might otherwise be 
the case. You'LL aLso find that the time 
involved wi L L be much more constructively 
spent that it would have been if you had 
just waded into the programming without 
taking the time to do your sketching 
first. 

Ignore the old farmer, and try now to 
program 'as good as you know how 1 . 
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